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Summary 



The prototype Fly Away Management Information System (FA MIS) works too 
slowly to be useful. This report outlines efforts to speed the system up and compares 
each technique. 

Problem 

The current version of the FAMIS system runs in interpreted BASIC on the Otro- 
na microcomputer system. Because the system is interpreted and implemented on a 
slow floppy disk based system, it is too slow to be workable. 

Objective 

This report identifies approaches to producing a fast interim version of the FAMIS 
system. 

Approach 

Three approaches were used these included: 

1. Modifying and compiling the system. 

2. Implementing the system on a hard disk. 

3. Moving the system to a computer with a faster processor. 

Results and Conclusions 

The changes resulted in an improvement in speed of better than a factor of five. 
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The current version of the FAMIS system runs in interpreted BASIC on the Otro- 
na microcomputer system. Because the system is interpreted, it runs very slowly. One 
of the research tasks in the FAMIS project, was to produce a compiled version of the 
FA. VI IS system. This proved to be a more difficult task than simply compiling the 
available code. 

The first approach taken to this problem involved condensing all the routines into 
a single BASIC program, then trying to compile them as a single program. This ap- 
proach did not work, because BASIC compilers available are restricted to blocks of 
code no larger than 64K. We did obtain one BASIC compiler, the BetterBASIC com- 
piler that was able to handle up 640K blocks of code. This compiler, however, was not 
compatible with the Microsoft BASIC that we were using. 

The ne,\t step was to try' compiling the individual routines separately. It turned 
out that this was not possible either. The main routine uses a CHAIN MERGE com- 
mand to transfer control to the various modules. The CHAIN .MERGE command re- 
quires you to keep a core module in memory at all times. The subsidiary modules are 
then loaded into an overlay area under the control of the core module. In interpreted 
BASIC, this is an efficient way to handle large programs. To compiled BASIC, it is 
not possible to do this. The CHAIN MERGE command does not e.xist in compiled 
BASIC. 

This meant that a major problem, then, was to rewrite the system so that it could 
work without the CHAIN MERGE. This was done by adding a small core module to 
each of the subsidiary routines that performed the graphic functions that were previ- 
ously done in the module that controlled the CHAIN MERGES. This makes each of 
the subsidiary routines somewhat larger than they were in the original program. How- 
ever, this turns out to be small price to pay for the increase speed offered by compiled 
BASIC. 

In addition, there were other design goals for the compiled BASIC system. A ma- 
jor design goal was to create a system that could be used on both a hard disk and 
floppy disk versions of FAMIS. It is undesirable to have to separate programs for the 
FAMIS. With two separate programs, maintenance becomes very' nearly impossible. 
It is too hard to control two versions of the same program in making changes. It is 
virtually inevitable that the two versions of the programs will diverge. 

When running a hard disk system, it is far more convenient to have both programs 
and data files on the same unit. In this way, the computer does not keep interrupting 
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the user asking for the installation of a floppy disk. This constant querying of the user 
for the proper disk is necessary in the floppy disk version of FA MIS. There is not 
enough storage on a single floppy disk to store all of the information that FAMIS 
must coordinate. 

The rewritten version of FAMIS is usable on both hard disk and floppy disk sys- 
tems. The new programs query the disk drive assignment to determine whether a hard 
drive or floppy drive is being used. In rewriting the new version for the compiled sys- 
tem, we went through and we added a drive qualifier to every file command in the en- 
tire program. In the original program, the system automatically to its data from the B 
drive. 

In the new version, the system automatically looks to whatever drive the user has 
selected at the beginning of the program. The data is then taken from that drive. If 
the drive is a floppy drive, the program asks for the user to mount the correct disk at 
the break points they were existing in the original program. If the drive is a hard drive, 
then the no queries are generated. The resulting system is small enough that it may be 
used on either a floppy or hard disk system. 

There are still a number of errors in the FAMIS code. These existed in the. inter- 
preted version, and they have been carried over into the compiled version. There is no 
reason to spend a great deal of time in correcting these errors in FAMIS. FAMIS is 
nearing the end of its life cycle, and these errors may as well stay as long as they are 
not too much of a problem. 

Some of the errors are a result of different programming styles used in BASIC. An 
example is the code that test uninitialized variables. This code is in the core routine 
and is placed in such a way that it does not cause logical problems. However, it is in- 
dicative of a sloppy approach to programming that one does not expect to find in pro- 
fessional code. 

In addition, there are undeclared arrays scattered throughout the program, d'his is 
something that BASIC allows, the good programming practice suggests that this 
should not be done. Besides these, there are several error finishes and caused to no- 
nexistent routines. These existed in the interpreted version, and they are still there in 
the compiled version. 

In testing the new version of FAMIS, several benchmarks were run to provide 
comparisons. Results of these comparisons are given in Figure 1. There are three 
variables involved in these comparisons. The first is type of BASIC used, either inter- 
preted or compiled. The second is whether the system was a lloppy disk or hard disk 
system. And the third variable is whether a fast or slow processor was used. 

The slow processor is an ordinary IBM PC Intel 8088 based system operating at 
4.77 megahertz. This is the same system that was used in Otrona. The fast processor 
used in this test was an 80186 based system, an Orchid PC Turbo card. This system 






Case 1 

Interpreted Basic 
Floppy Disk 

Slow Processor - 4.77 megahertz 8088 
Time Test: 216 sec. Factor. 5.54 



Case 2 

Interpreted Basic 
Hard Disk 

Slow Processor - 4.77 megahertz 8088 
Time Test; 187 sec. Factor: 4.79 



Case 3 

Interpreted Basic 
Floppy Disk 

Fast Processor - 8 megahertz 80186 
Time Test: 125 sec. Factor; 3.21 



Case 4 

Interpreted Basic 
Hard Disk 

Fast Processor - 8 megahertz 80186 
Time Test: 105 sec. Factor: 2.69 



Case 5 

Compiled Basic 
Floppy Disk 

Slow Processor - 4.77 megahertz 8088 
Time Test; 91 sec. Factor: 2.33 



Case 6 



Compiled Basic 
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Hard Disk 

Slow Processor - 4.77 megahertz 8088 
rime Test: 68 sec. Factor. 1.74 



Case 7 

Compiled Basic 
Floppy Disk 

Fast Processor - 8 megahertz 80186 
Time Test: 62 sec. Factor: 1.59 



Case 8 

Compiled Basic 
Hard Disk 

Fast Processor - 8 megahertz 80186 
Time Test: 39 sec. Factor: 1.00 



Figure 1: Results of the Benchmark Tests 



operates at 8 megahertz and uses a disk caching system and is roughly comparable to 
an IBM PC-AT in speed. 

The tests presented in Figure 1 consisted of running the FA.MIS system to give a 
network status. The run started with the initial loading of the system in the configura- 
tion being tested. We then went to the initial banner logo, the first menu, and then to 
the network status menu. In the network status menu we selected DOD and did a sta- 
tus on the AUTODIN system at the USA level. This caused to generation of a United 
States map and the sites of the AUTODIN system. After that, we asked for a status 
listing for the systems nodes. This concluded the test was concluded and the time re- 
quired to arrive at this point was recorded. 

The cases in Figure 1 are arranged in descending order of time required. Case 1 
presents the current system. This involves interpreted BASIC, a lloppy disk and a slow 
processor. Two hundred sixteen seconds were required to run the demo program. This 
is a factor of better than five and a half times slower than the fastest configuration 
tested. 



5 



Case 2 uses interpreted BASIC that moves the system to a hard disk. We are still 
operating on a slow processor. This paired a bit of time of, only a 187 .seconds were 
required to run the demo. Case 3 still involves intcpreted BASIC using a lloppy disk 
system but not we've moved to a fast processor. This would the equivalent to running 
the system on a AT with a floppy disk based system. This time a 125 seconds were re- 
quired for the demo. 1’hc next case uses interpreted BASIC hard disk and fast proces- 
sor. In this configuration, 105 seconds are required for the demo. 

The most dramatic improvements in time seem to come from compiling the basic 
version of the FAMIS system. The last four cases in Figure one all use compiled 
BASIC. Case 5 used compiled BASIC, lloppy disk and slow processor and reaches the 
conclusion of the test in 91 seconds. Case 6 used compiled BASIC, a hard disk, and 
slow processor and the tests concludes in 68 seconds. Case 7 uses compiled BASIC, 
floppy disk, and fast processor and the test concludes in 62 seconds. I'inally, Case 8 
used compiled BASIC, hard disk and the fast processor and reaches a conclusion in 39 
seconds. 

A significant portion of this time is used to generate the United States map. If we 
were to use the fast load graphics it would use the C programs, then this 39 seconds 
could probably be cut in half A significant portion of the remaining time then is op- 
erator reaction time, and there is no way to cut this down. 

The use of compiled BASIC offers a significant increase in speed to the current 
FAMIS system. Case 5 represents the Otrona system after the use of compiled 
BASIC. Its speed is 91 seconds to reach the conclusion of the demo program. This is 
about 2.4 times faster than the current system. The current system is unacceptably 
slow. This one is at least somewhat better. If a hard disk is added to the Otronas the 
figures are even better. A hard disk in compiled BASIC brings the system speed up to 
nearly 3.2 times faster. This should make the Otrona demos quite a bit more impres- 
sive. 



Appendix A 
NCS.BAS Listing 



01 COMMON DRV$ 

10 SCREEN 0,0,0 

20 DIM CODES(100),S(100),KOUNT(100) 

30 DEFDBL N,M,C: USTFILE$=" " 

31 CIS 

32 LOCATE 10,20 

33 PRINT "Set the Caps Lock Key On"; 

34 LOCATE 12,20 

35 PRINT "Which drive contains your data"; 



36 INPUT DRV$ 

37 IF DRV$<"A" OR DRV$>"D" GOTO 31 

38 DRV$ = LEFT$(DRV$,1)+": " 

* *************^*C****************** 

50 REM* * 

60 REM* Program Name: NCS * 

70 REM* Revision: For 16-Bit * 

80 REM* Date : January 1984 * 

90 REM* Recoded By: Deborah Jackson* 

100 REM* * 

110 |^^[vj***^********^****’‘f*** ***yf******** 

120 N$="LOGO" 

130 CLS 

140 GOSUB 1460 
150 TES=1 
160 LOCATE 1,13 

170 PRINT"Current Time "; TIMES 



180 LOCATE 1,40 

190 PRINT"Today's Date "; DATES 
210 INPUT"ENTER C0DE";RS 
220 IF RS="T" GOTO 160 
230 IF RS="9" GOTO 250 
240 GOTO 210 

250 PADS=" Main Menu " 

260 GOSUB 650 

270 TES=0 

280 GOSUB 580 

290 REM**** 
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300 PRINT 

310 PRINT" 1. P.O. C. Lists 
320 PRINT" 2. Emergency Activation Procedures 
330 PRINT" 3. Network. Status Monitoring 
340 PRINT" 4. Damage Assessment 
350 PRINT" 5. Resolution of Claim 
360 PRINT" 6. Zooming 
370 PRINT" 7. Word Processing (WordStar) 

380 PRINT" 8. NSC Processing Module 
390 PRINT" 9. QUIT 
400 COLOR 14,0,0: PRINT 
410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 

480 IF T=1 THEN CHAIN "NCSPOC" 

490 IF T=2 THEN CHAIN "NCSACT" 

500 IF T=3 THEN CHAIN "NCSSTAT" 

510 IF T=4 THEN CHAIN "NCSDAM" 

520 IF T=5 THEN CHAIN "NCSCLAIM" 

530 IF T=6 THEN RUN "NCSZOOM" 

540 IF T=7 THEN 3400 

550 IF T=8 THEN CHAIN "NCSNSC" 

560 IF T=9 THEN SYSTEM 
570 GOTO 250 

580 LOCATE 10,4: PRINT" DATE ": LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATES 
620 LOCATE 11,28 
630 PRINT TIMES 
640 RETURN 

650 REM************************************************************* 
660 REM* * 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* 

690 [^^|vj************************^************************************ 

700 SCREEN 0: WIDTH 40: CLS 
710 PRINT 
720 COLOR 14,1,0 
730 PRINT CHRS(201); 

740 FOR 1=1 TO 36 
750 PRINT CHRS(205); 

760 NEXT I 

770 PRINT CHRS(187) 



780 PRINT CHR$(186); 

790 FOR 1=1 TO 36 
800 PRINT" 

810 NEXT I 

820 PRINT CHR$(186) 

830 PRINT CHR$(186); 

840 PRINT" NCS EMERGENCY TELECOMM. 

850 PRINT CHR$(186) 

860 PRINT CHR$(186); 

870 PRINT" MICRO SUBSYSTEM " 

880 PRINT CHR$(186) 

890 PRINT CHR$(186); 

900 PRINT PAD$;: PRINT CHR$(186) 

910 PRINT CHR$(186); 

920 FOR 1=1 TO 36 
930 PRINT" 

940 NEXT I 

950 PRINT CHR$(186) 

960 PRINT CHR$(200); 

970 FOR 1=1 TO 36 
980 PRINT CHR$(205); 

990 NEXT I 

1000 PRINT CHR$(188) 

1010 PAD$=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 
1060 INPUT"PRESS RETURN FOR MENU. RET$ 

1070 CLS 
1080 RETURN 

1090 R^|v|**** *** * p j j^py^Q********************** 

1100 SCREEN 0: CLS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 
1240 IF C$="Q" THEN 1280 
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1250 PRINT 
1260 1=0 
1270 GOTO 1140 
1280 CLOSE 
1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE INPUT #1,A$ 

1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; M$ 

1440 CLOSE #1 
1450 RETURN 

1460 [^^^* *********** P J P * * * 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0,0)-(640,250) 
1480 OPEN "I",#1,N$ 

1490 IF EOF(l) THEN 2510 
1500 INPUT #1,C,X,Y,Z,S,E 



1510 


IF 


C=0 


THEN 


1760 


REM 


**POINT 


1520 


IF 


C=1 


THEN 


1780 


REM 


**LINE 


1530 


IF 


C=2 


THEN 


1800 


REM 


**CIRCLE 


1540 


IF 


C=3 


THEN 


1820 


REM 


**CLEAR SCREEN 


1550 


IF 


C=4 


THEN 


1840 


REM 


**CLEAR POINT 


1560 


IF 


C=5 


THEN 


1860 


REM 


**CLEAR CENTER OF CIRCLE 


1570 


IF 


C=6 


THEN 


1880 


REM 


**BOX(UPPER LEFT CORNER) 


1580 


IF 


C=7 


THEN 


1910 


REM 


**BOX (LOWER RIGHT CORNER) 


1590 


IF 


C=8 


THEN 


1930 


REM 


**SATELLITE 


1600 


IF 


C=9 


THEN 


1990 


REM 


**STAR 


1610 


IF 


C=10 


THEN 


2020 


REM 


* DEARTH STATION 


1620 


IF 


C=ll 


THEN 


2050 


REM 


**CITY (BOX) 


1630 


IF 


C=12 


THEN 


2070 


REM 


**REMOVE CENTER OF CIRCLE 


1640 


IF 


C=13 


THEN 


2090 


REM 


**TELEPHONE SET 


1650 


IF 


C=14 


THEN 


2120 


REM 


**SET UP BLOCK FILLER 


1660 


IF 


C=15 


THEN 


2140 


REM 


**CREATES A FILLED BLOCK 


1670 


IF 


C=16 


THEN 


2160 


REM 


**CREATES A TRIANGLE 


1680 


IF 


C=17 


THEN 


2200 


REM 


**CREATES A BIG TRIANGLE 


1690 


IF 


C=18 


THEN 


2260 


REM 


**CREATES A DIAMOND 


1700 


IF 


C=19 


THEN 


2320 


REM 


**CREATES A LARGE BOX 


1710 


IF 


C=20 


THEN 


2340 


REM 


**WISHBONE 
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1720 


IF C=21 THEN 2410 REM **ASTERISK 




1730 


IF C=22 THEN 2460 REM **AN X 




1740 


IF C=23 THEN 2490 REM **A DASHED LINE 




1750 


GOTO 1490 




1760 


PSET (X,Y) 




1770 


GOTO 1490 




1780 


LINE -(X.Y) 




1790 


GOTO 1490 




1800 


CIRCLE(X,Y),Z,,S,E, 13/32 




1810 


GOTO 1490 




1820 


CLS 




1830 


GOTO 1490 




1840 


CLS 




1850 


GOTO 1490 




1860 


CLS 




1870 


GOTO 1490 




1880 


X1=X 




1890 


Y1=Y 




1900 


GOTO 1490 




1910 


LINE (X1,Y1)-(X,Y),,B 




1920 


GOTO 1490 




1930 


CIRCLE (X,Y),10, ,0,6. 28,1/2 




1940 


LINE (X-20,Y)-(X-10,Y) 




1950 


LINE (X,Y-5)-(X,Y-10) 




1960 


LINE (X+10,Y)-(X+20,Y) 




1970 


LINE (X,Y+5)-(X,Y+10) 




1980 


GOTO 1490 




1990 


LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 




2000 


LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4 ,Y-1): LINE 


-(X+4,Y-1) 


2010 


GOTO 1490 




2020 


LINE (X,Y)-(X+10,Y-10): LINE -(X+20 , Y): LINE - 


■(X,Y) 


2030 


CIRCLE (X+20, Y-15), 14, ,2. 36,5. 5 




2040 


GOTO 1490 




2050 


LINE (X-2,Y-1)-(X+2,Y+1),,B 




2060 


GOTO 1490 




2070 


CLS 




2080 


GOTO 1490 




2090 


LINE (X,Y)-(X+12,Y): LINE -(X+6 ,Y~6): LINE -(X,Y) 


2100 


CIRCLE (X+6,Y-6),6,,0,3. 14 




2110 


GOTO 1490 




2120 


PAINT (X,Y),1 




2130 


GOTO 1490 




2140 


LINE (X1,Y1)-(X,Y), ,B 




2150 


GOTO 1490 




2160 


LINE (X-2,Y)-(X+2,Y) 




2170 


LINE (X-4,Y+1)-(X+4,Y+1) 




2180 


PSET (X,Y-1) 





2190 GOTO 1490 
2200 PSET (X,Y-2) 

2210 LINE (X-2,Y-1)-(X+2,Y-1) 

2220 LINE (X-4,Y)-(X+4,Y) 

2230 LINE (X-6,Y+1)-(X+6,Y+1) 

2240 LINE (X-8,Y+2)-(X+8,Y+2) 

2250 GOTO 1490 
2260 PSET (X,Y) 

2270 PSET (X-2.Y) 

2280 PSET (X+2,Y) 

2290 PSET (X,Y-1) 

2300 PSET (X,Y+1) 

2310 GOTO 1490 

2320 LINE (X-4,Y-2)-(X+4,Y+2), ,B 
2330 GOTO 1490 
2340 PSET (X,Y-2) 

2350 PSET (X,Y-1) 

2360 PSET (X.Y) 

2370 LINE (X-2,Y+1)-(X+2,Y+1) 

2380 PSET (X-4.Y+2) 

2390 PSET (X+4.Y+2) 

2400 GOTO 1490 

2410 LINE (X+4,Y-2)-(X-4,Y+2) 

2420 LINE (X-4,Y-2)-(X+4,Y+2) 

2430 LINE (X-4,Y)-(X+4,Y) 

2440 LINE (X,Y+2)-(X,Y-2) 

2450 GOTO 1490 

2460 LINE (X+4,Y-2)-(X-4,Y+2) 

2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y),,,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 *****^*^ y'|^QJ^Q)*f**i*f*i*c*i*fi*n*cT*t*i*f^T*f**** 

2540 REM CLS 
2550 REGIGN=R 
2560 SET=0 

2570 OPEN " I", #1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF UT>LATU OR LAT<LATD THEN 2650 
2630 IF LON>LONL OR LON<LONR THEN 2650 
2640 GOTO 2680 
2650 IF REGION>10 THEN 3380 



2660 REGION=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT # 2 , LA, YVAL.REG 

2720 IF REGIONoREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YL0W=YVAL 

2780 YHI=YVAL1 

2790 LATL0W=LA 

2800 LATHI=LA1 

2810 CLOSE #2 

2820 OPEN "I",#1,"L0NFILE" 

2830 LON1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONOREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 

2940 XLEFTU=YHI/C11+C21 

2950 XLEFTD=YL0W/C11+C21 

2960 XRITEU=YHI/C1+C2 

2970 XRITED=YL0W/C1+C2 

2980 L1=XRITEU-XLEFTU 

2990 L2=XRITED-XLEFTD 

3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(1)=YL0W 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
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3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C) )/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=(LAT-LATLOW)/(LATHI-LATLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CLS: WIDTH 80 
3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 



Appendix B 

NCSCLAIM.BAS Listing 



01 COMMON DRV$ 

20 DIM CODES(100),S(100),KOUNT(100) 

30 DEFDBL N,M,C: LASTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu " 

260 GOSUB 650 
270 TES=0 
280 GOSUB 580 

290 R^M**** *************************************** ********* 
300 PRINT 

310 PRINT" 1. P.O. C. Lists " 

320 PRINT" 2. Emergency Activation Procedures " 

330 PRINT" 3. Network Status Monitoring " 

340 PRINT" 4. Damage Assessment " 

350 PRINT" 5. Resolution of Claim " 

360 PRINT" 6. Zooming " 

370 PRINT" 7. Word Processing (WordStar) " 

380 PRINT" 8. NSC Processing Module " 

390 PRINT" 9. QUIT " 

400 COLOR 14,0,0; PRINT 

410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 



480 


IF T=1 


THEN 


CHAIN 


"NCSPOC" 


490 


IF 


T=2 


THEN 


CHAIN 


"NCSACT" 


500 


IF 


T=3 


THEN 


CHAIN 


"NCSSTAT" 


510 


IF 


T=4 


THEN 


CHAIN 


"NCSDAM" 


520 


IF 


T=5 


THEN 


CHAIN 


"NCSCLAIM 


530 


IF 


T=6 


THEN 


RUN "NCSZOOM" 


540 


IF 


T=7 


THEN 


3400 




550 


IF 


T=8 


THEN 


CHAIN 


"NCSNSC" 


560 


IF 


T=9 


THEN 


SYSTEM 



570 GOTO 250 
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580 LOCATE 10,4: PRINT" DATE ".-LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATES 
620 LOCATE 11,28 
630 PRINT TIMES 
640 RETURN 

660 REM* 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* 

690 REM* ************************************************************ 

700 SCREEN 0: WIDTH 40: CLS 

710 PRINT 

720 COLOR 14,1,0 

730 PRINT CHRS(201); 

740 FOR 1=1 TO 36 
750 PRINT CHRS(205); 

760 NEXT I 

770 PRINT CHRS(187) 

780 PRINT CHRS(186); 

790 FOR 1=1 TO 36 
800 PRINT" "; 

810 NEXT I 

820 PRINT CHRS(186) 

830 PRINT CHRS(186); 

840 PRINT" NCS EMERGENCY TELECOMM. 

850 PRINT CHRS(186) 

860 PRINT CHRS(186); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHRS(186) 

890 PRINT CHRS(186); 

900 PRINT PADS; : PRINT CHRS(186) 

910 PRINT CHRS(186); 

920 FOR 1=1 TO 36 
930 PRINT" 

940 NEXT I 
950 PRINT CHRS(186) 

960 PRINT CHRS(200); 

970 FOR 1=1 TO 36 
980 PRINT CHRS(205); 

990 NEXT I 

1000 PRINT CHRS(188) 

1010 PADS=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 



II . 



II . 



1060 INPUT"PRESS RETURN FOR MENU. ";RET$ 

1070 CIS 
1080 RETURN 

1090 reM******** FI LE read************************** 
1100 SCREEN 0: CIS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF C$="Q" THEN 1280 

1250 PRINT 

1260 1=0 

1270 GOTO 1140 

1280 CLOSE 

1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE INPUT #1,A$ 

1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; M$ 

1440 CLOSE n 
1450 RETURN 

1460 R£M************ PI LE pi^gj**************** 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0,0)-(640,250) 
1480 OPEN "I",#1,N$ 

1490 IF EOF(l) THEN 2510 

1500 INPUT #1,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 
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1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE -(X,Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z,,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

**CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

**EARTH STATION 
**CITY (BOX) 

**REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
**CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
**CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
**WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



Y1=Y 

GOTO 1490 

LINE (X1,Y1)-(X,Y),,B 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 
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2000 LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4.Y-1): LINE -(X+4.Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10): LINE -(X+20 ,Y): LINE -(X,Y) 

2030 CIRCLE (X+20,Y-15) , 14, ,2. 36, 5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1),,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -(X+6 ,Y-6): LINE -(X,Y) 

2100 CIRCLE (X+6,Y-6),6,,0,3. 14 



2110 


GOTO 


1490 




2120 


PAINT (X,Y),1 




2130 


GOTO 


1490 




2140 


LINE 


(X1,Y1)-(X 




2150 


GOTO 


1490 




2160 


LINE 


(X-2,Y)-(X+2,Y) 


2170 


LINE 


(X-4,Y+1)- 


(X+4,Y+1) 


2180 


PSET 


(X,Y-1) 




2190 


GOTO 


1490 




2200 


PSET 


(X,Y-2) 




2210 


LINE 


(X-2,Y-D- 


(X+2,Y-1) 


2220 


LINE 


(X-4,Y)-(X 


:+4,Y) 


2230 


LINE 


(X-6,Y+D- 


(X+6,Y+1) 


2240 


LINE 


(X-8,Y+2)- 


(X+8,Y+2) 


2250 


GOTO 


1490 




2260 


PSET 


(X,Y) 




2270 


PSET 


(X-2,Y) 




2280 


PSET 


(X+2,Y) 




2290 


PSET 


(X,Y-1) 




2300 


PSET 


(X,Y+1) 




2310 


GOTO 


1490 




2320 


LINE 


1 

CNJ 

>- 

1 

X 


(X+4,Y+2) 


2330 


GOTO 


1490 




2340 


PSET 


(X,Y-2) 




2350 


PSET 


(X.Y-l) 




2360 


PSET 


(X,Y) 




2370 


LINE 


(X-2,Y+1)- 


(X+2,Y+1) 


2380 


PSET 


(X-4,Y+2) 




2390 


PSET 


(X+4,Y+2) 




2400 


GOTO 


1490 




2410 


LINE 


(X+4,Y-2)- 


(X-4,Y+2) 


2420 


LINE 


(X-4,Y-2)- 


(X+4,Y+2) 


2430 


LINE 


(X-4,Y)-(X+4,Y) 


2440 


LINE 


(X,Y+2)-(X 


:,Y-2) 


2450 


GOTO 


1490 




2460 


LINE 


(X+4,Y-2)- 


(X-4,Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y),,,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 ************ LJ\J /|_Qfy|Q*>»f*******>^**>^*>^**yf * 

2540 REM CLS 
2550 REGION=R 
2560 SET=0 

2570 OPEN "I", #1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF LAT>LATU OR LAT<LATD THEN 2650 

2630 IF L0N>L0NL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGI0N>10 THEN 3380 

2660 REGI0N=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF E0F(2) THEN 2810 

2710 INPUT §Z, LA, YVAL.REG 

2720 IF REGIONOREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YL0W=YVAL 

2780 YHI=YVAL1 

2790 LATL0W=LA 

2800 LATHI=LA1 

2810 CLOSE n 

2820 OPEN "I",#1,"L0NFILE" 

2830 L0N1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONoREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #\ 

2930 IF R=0 THEN 3070 



2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(LONl-LON)/(LONl-LO) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=(LAT-LATLOW)/(LATHI-UTLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(l)=YLOW 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C) )/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(LON1-LON)/(LON1-LO) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=(LAT-LATLOW)/(LATHI-LATLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CLS; WIDTH 80 



3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 

4000 REM ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

4010 PAD$=" RESOLUTION OF CLAIM " 

4020 GOSUB 650 
4030 TES=0 
4040 GOSUB 580 
4050 PRINT 

4060 PRINT" 1. Entry of Claim Record " 

4070 PRINT" 2. Review Claim Status File " 

4080 PRINT" 3. Claim Resolution 

4090 PRINT" 4. QUIT " 

4100 PRINT 

4110 COLOR 14,0,0: INPUT" ENTER OPTION DESIRED ";T 
4120 CLS 

4130 IF T=1 THEN GOSUB 1040 
4140 IF T=2 THEN GOSUB 1040 
4150 IF T=3 THEN GOSUB 1040 
4160 IF T=4 THEN 250 
4170 GOTO 4010 



Appendix C 

NCSSTAT.BAS Listing 



01 COMMON DRV$ 

20 DIM CODES(100),S(100),KOUNT(100) 

30 DEFDBL N,M,C: LASTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu " 

260 GOSUB 650 
270 TES=0 
280 GOSUB 580 

300 PRINT 

310 PRINT" 1. P.O. C. Lists " 

320 PRINT" 2. Emergency Activation Procedures " 

330 PRINT" 3. Network Status Monitoring " 

340 PRINT" 4. Damage Assessment " 

350 PRINT" 5. Resolution of Claim " 

360 PRINT" 6. Zooming " 

370 PRINT" 7. Word Processing (WordStar) " 

380 PRINT" 8. NSC Processing Module " 

390 PRINT" 9. QUIT " 

400 COLOR 14,0,0: PRINT 
410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 



480 


IF 


T=1 


THEN 


CHAIN 


"NCSPOC" 


490 


IF 


T=2 


THEN 


CHAIN 


"NCSACT" 


500 


IF 


T=3 


THEN 


CHAIN 


"NCSSTAT" 


510 


IF 


T=4 


THEN 


CHAIN 


"NCSDAM" 


520 


IF 


T=5 


THEN 


CHAIN 


"NCSCLAIM 


530 


IF T=6 


THEN 


RUN "NCSZOOM" 


540 


IF T=7 


THEN 


3400 




550 


IF 


T=8 


THEN 


CHAIN 


"NCSNSC" 


560 


IF 


T=9 


THEN 


SYSTEM 



570 GOTO 250 
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580 LOCATE 10,4; PRINT" DATE LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATE$ 

620 LOCATE 11,28 
630 PRINT TIME$ 

640 RETURN 

650 REM*’*'*****’*'**********’’'’*'’*'*********’''’*'*’*'**’*'*’*'*’''*******’*'************ 
660 REM* 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* 

690 REM** 

700 SCREEN 0: WIDTH 40: CLS 
710 PRINT 
720 COLOR 14,1,0 
730 PRINT CHR$(201); 

740 FOR 1=1 TO 36 
750 PRINT CHR$(205); 

760 NEXT I 

770 PRINT CHR$(187) 

780 PRINT CHR$(186); 

790 FOR 1=1 TO 36 
800 PRINT" "; 

810 NEXT I 

820 PRINT CHR$(186) 

830 PRINT CHR$(186); 

840 PRINT" NCS EMERGENCY TELECOMM. "; 

850 PRINT CHR$(186) 

860 PRINT CHR$U86); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHR$(186) 

890 PRINT CHR$(186); 

900 PRINT PADS;: PRINT CHR$(186) 

910 PRINT CHR$(186); 

920 FOR 1=1 TO 36 
930 PRINT" "; 

940 NEXT I 
950 PRINT CHR$(186) 

960 PRINT CHR$(200); 

970 FOR 1=1 TO 36 
980 PRINT CHR$(205); 

990 NEXT I 

1000 PRINT CHR$(188) 

1010 PAD$=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 



n. 



1060 INPUT"PRESS RETURN FOR MENU.";RET$ 

1070 CIS 
1080 RETURN 

1090 REM******** FI LE rfaD****************’*^^^******* 
1100 SCREEN 0:CLS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF C$="Q" THEN 1280 

1250 PRINT 

1260 1=0 

1270 GOTO 1140 

1280 CLOSE 

1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE ";R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE- INPUT #1,A$ 

1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUr'ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; M$ 

1440 CLOSE #1 
1450 RETURN 

1460 RFM’*'*********** FI LE PLOT**************** 

1470 WIDTH 80; SCREEN 2; WINDOW SCREEN (0,0)-(640,250) 
1480 OPEN "I",#1,N$ 

1490 IF EOF(l) THEN 2510 

1500 INPUT #1,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 



25 



1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE "(X,Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z,,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

’^*CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

** EARTH STATION 
**CITY (BOX) 

*’^REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
"’^CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
*>^CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
’^*WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



Y1=Y 

GOTO 1490 

LINE (X1,Y1)-(X,Y),,B 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 
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2000 LINE (X,Y-2)-(X+4,Y+2); LINE -(X-4,Y-1): LINE -(X+4.Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10): LINE -(X+20 , Y); LINE -(X,Y) 

2030 CIRCLE (X+20, Y-15), 14, ,2. 36,5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1),,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -(X+6 ,Y-6): LINE -(X,Y) 

2100 CIRCLE (X+6,Y-6),6,,0,3. 14 
2110 GOTO 1490 
2120 PAINT (X,Y),1 



2130 


GOTO 


1490 




2140 


LINE 


(X1,Y1)-(X,Y),,B 


2150 


GOTO 


1490 




2160 


LINE 


(X-2,Y)-(X+2,Y) 


2170 


LINE 


(X-4,Y+1)' 


-(X+4,Y+1) 


2180 


PSET 


(X,Y-1) 




2190 


GOTO 


1490 




2200 


PSET 


(X,Y-2) 




2210 


LINE 


(X-2,Y-1)' 


-(X+2,Y-1) 


2220 


LINE 


(X-4,Y)-(X+4,Y) 


2230 


LINE 


(X-6,Y+1)' 


-(X+6,Y+1) 


2240 


LINE 


(X-8,Y+2)' 


-(X+8,Y+2) 


2250 


GOTO 


1490 




2260 


PSET 


(X,Y) 




2270 


PSET 


(X-2,Y) 




2280 


PSET 


(X+2,Y) 




2290 


PSET 


(X.Y-l) 




2300 


PSET 


(X,Y+1) 




2310 


GOTO 


1490 




2320 


LINE 


rX-4,Y-2)' 


-(X+4,Y+2) 


2330 


GOTO 


i490 




2340 


PSET 


(X,Y-2) 




2350 


PSET 


(X,Y-1) 




2360 


PSET 


(X,Y) 




2370 


LINE 


(X-2,Y+1)' 


-(X+2,Y+1) 


2380 


PSET 


(X-4,Y+2) 




2390 


PSET 


(X+4,Y+2) 




2400 


GOTO 


1490 




2410 


LINE 


(X+4,Y-2)' 


-(X-4,Y+2) 


2420 


LINE 


(X-4,Y-2)' 


-(X+4,Y+2) 


2430 


LINE 


(X-4,Y)-(X+4,Y) 


2440 


LINE 


(X,Y+2)-(X,Y-2) 


2450 


GOTO 


1490 




2460 


LINE 


(X+4,Y-2)' 


-(X-4,Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y), , ,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 y^|_Q|sjQ>‘f *^>*f>*f ★***»»? 

2540 REM CLS 
2550 REGION=R 
2560 SET=0 

2570 OPEN " I", #1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF LAT>LATU OR LAT<LATD THEN 2650 

2630 IF LON>LONL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGION>10 THEN 3380 

2660 REGI0N=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT #2, LA, YVAL,REG 

2720 IF REGIONoREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YLOW=YVAL 

2780 YHI=YVAL1 

2790 LATLOW=LA 

2800 LATHI=LA1 

2810 CLOSE #2 

2820 OPEN "I",#l,"LONFILE" 

2830 LON1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONOREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 



2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=(LAT-LATLOW)/(UTHI-UTLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(l)=YLOW 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN 5=1 
3160 IF 1=2 THEN 5=3 
3170 FOR 0=5 TO 5+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+5QR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-5QR(B 2-4*A*C) )/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT 0 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 5VAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350 XD=CINT(XL-5VAL*(XL-XU)) 

3360 YD=CINT(YL+5VAL*(YU-YL)) 

3370 GOTO 3390 
3380 5ET=20 
3390 RETURN 
3400 CL5: WIDTH 80 



3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 

4000 REM ********^**’^*****^^**’^’^***********^******** 
4010 PAD$=" Network Status Monitoring " 

4020 GOSUB 650 
4030 TES=0 
4040 GOSUB 580 
4050 PRINT 



4060 


PRINT " 




SYSTEMS AVAILABLE 


il 


4070 


PRINT " 






II 


4080 


PRINT " 


1. 


DOD 


II 


4090 


PRINT " 


2. 


GSA 


II 


4100 


PRINT " 


3. 


FAA 


II 


4110 


PRINT " 


4. 


FEMA 


II 


4120 


PRINT " 


5. 


NASA 


II 


4130 


PRINT " 


6. 


COMMERCIAL COMM. 


II 


4140 


PRINT " 


7. 


CRITICAL COMM. FACILITIES 


II 


4150 


PRINT " 


8. 


QUIT 


II 


4160 


PRINT 








4170 


COLOR 14 


,0,0: PRINT " ENTER OPTION DESIRED 


II. 

) 


4180 


INPUT T 








4190 


PRINT 








4200 


CLS 








4210 


IF T = 2 


THEN 


GOTO 10220 




4220 


IF T = 4 


THEN 


GOTO 10950 




4230 


IF T = 8 


THEN 


250 




4240 


IF T = 5 


THEN 


GOTO 9270 




4250 


IF T = 1 


THEN 


GOTO 6190 




4260 


IF DRV$>' 


•B:" 


THEM 4280 




4265 


PRINT "ENTER 1 


DISC NO. S-17 IN THE" 




4270 


INPUT "B- 


-DRIVE AND ENTER RETURN"; D$ 




4280 


RESET 








4290 


WIDTH 80 








4300 


IF T = 3 


THEN 


GOTO 10630 




4310 


IF T = 6 


THEN 


GOTO 13650 




4320 


IF T = 7 


THEN 


GOTO 14260 




4330 


GOTO 4000 






4340 


WIDTH 40 








4350 


PRINT 








4360 


PRINT 








4370 


PRINT " 


THE 


";ST$;" SYSTEM CAN BE DISPLAYED 


II 


4380 


PRINT 








4390 


PRINT " 




1. AT THE US LEVEL" 




4400 


PRINT " 




2. BY FEMA REGION" 




4410 


PRINT 








4420 


PRINT " 


ENTER OPTION DESIRED: "; 
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4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 



INPUT AN$ 

PRINT 

K=0 

IF AN$="2" 
IF AN$="1" 
IF A 



= 0 



THEN INPUT " 

THEN A=0 
THEN N$="USAOUT. TXT" 



WHICH REGION (1-10)";A 



= 1 THEN N$=DRV$ 



THEN N$=DRV$ 
THEN N$=DRV$ 
THEN N$=DRV$ 
THEN N$=DRV$ 
THEN N$=DRV$ 
THEN N$=DRV$ 

= 8 THEN N$=DRV$ 

= 9 THEN N$=DRV$ 

= 10 THEN N$=DRV$ + 



2 

3 

4 

5 

6 
7 



"CRITRl" 

"CRITR2" 

"CRITR3" 

"CRITR4" 

"CRITR5" 

"CRITR6" 

"CRITR7" 

"CRITR8" 

"CRITR9" 

"CRITRIO" 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
CIS 

PRINT "STAND BY SYSTEM PROCESSING" 

IF A > 0 THEN 5140 
K=1 

OPEN "I",#1,F$ 

OPEN "0",2,DRV$ + "TEMPNOD" 

IF EOF(l) THEN GOTO 4900 

INPUT #1,R0W,C0L,A$,X1,Y1,X2,Y2,STAT,TYP$,N0DE 
IF STAT=30 OR STAT=31 THEN 4830 
IF STAT=20 OR STAT=21 THEN 4870 
IF ST$="CRITICAL" THEN TYP$="ALL" 

IF TYP$=CAT1$ THEN PRINT #2 , 16; " ,"X1; " ,"Y1; " , "0; " , "0; " , " 

IF TYP$=CAT2$ THEN PRINT #2,11; " ,"X1; " ,"Y1; " ,"0; " ,"0; " 

IF TYP$=CAT3$ THEN PRINT #2,0; " ,"X1; " ,"Y1; " ,"0; " ,"0; " 

IF TYP$="SATE" THEN PRINT #2 , 10; " , "XI; " , "Yl; " ,"0; " , "0; " , 

IF TYP$=CAT4$ THEN PRINT #2 ,9; " . "XI; " , "Yl; " . "0; " , "0; " . "0 
IF TYP$=CAT4$ THEN PRINT #2,2; 

IF TYP$=CAT5$ THEN PRINT #2,9; 

IF TYP$=CAT6$ THEN PRINT #2,20; " ,"X1; " ,"Y1; " ,"0; " ,"0; " 

IF TYP$=CAT7$ THEN PRINT #2,22; " ,"X1; " ,"Y1; " ,"0; " ,"0; " 

IF TYP$=CAT8$ THEN PRINT #2,21; " ,"X1; " ,"Y1; " , "0; " ,"0; " ," 

IF TYP$=CAT9$ THEN PRINT #2 ,8; " , "XI; " , "Yl; " , "0; " , "0; " , "0 

IF TYP$=CAT10$ THEN PRINT #2 , 13; " , "XI; " , "Yl; " ,"0; " , "0; " , "0 
GOTO 4650 

PRINT #2,6; " ,"Xl-6; " ,"Yl-3; " ,"0; " ,"0; " ,"0 
PRINT #2 , 15; " , "Xl+6; " , "Yl+3; " , "0; " , "0; ", "0 
PRINT #2,14; " , "Xl+3; " , "Yl+1; " , "0; " , "0; ", "0 
GOTO 4650 

PRINT #2,0;","X1;","Y1;","0;","0; 

PRINT #2,2;","X1;","Y1;","6;","0; 

GOTO 4650 



, X1;","Y1;","0;","0; , 
","X1;","Y1;","10;","0;"," 
","X1;","Y1;","0;","0;","0 



","6.28 
" "6.28 



ooo cr> rooo 
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PRINT #2,0; " ,"XU1; " ,"YU1; " ,"0; " ,"0; " ,"0 
PRINT #2,1;","XU2;","YU2;","0;","0; 



II II r 



4900 CLOSE 

4910 IF A > 0 THEN 5140 

4920 IF STS = "FTS" OR ST$="AUTOVON" THEN 5020 
4930 IF STS = "MEECN" OR STS = "CRITICAL" THEN 5020 
4940 OPEN "I",#1,ES 
4950 OPEN "0",#2,DRVS + "TEMPLIN" 

4960 IF EOF(l) THEN GOTO 5010 

4970 INPUT #1,C0DE1,C0DE2,XU1,YU1,XU2,YU2,XR1,YR1,XR2,YR2 
4980 
4990 

5000 GOTO 4960 
5010 CLOSE 
5020 CLS 
5030 GOSUB 1460 
5040 NS=DRVS + "TEMPNOD" 

5050 GOSUB 1460 
5060 KILL DRVS + "TEMPNOD" 

5070 IF STS = "FTS" OR STS="AUTOVON" THEN 5760 
5080 IF STS = "MEECN" OR STS = "CRITICAL" THEN 5760 
5090 NS=DRVS + "TEMPLIN" 

5100 GOSUB 1460 
5110 KILL DRVS + "TEMPLIN" 

5120 GOTO 5760 
5130 K=0 
5140 OPEN 
5150 OPEN 
5160 
5170 



"I",#1,FS 
"0", #2, DRVS 



"RNODE" 

IF EOF(l) THEN GOTO 5470 

INPUT #1,R0W,C0L,AS,X1,Y1,X2,Y2,STAT,TYPS,N0DE 
5180 N=NODE-INT(NODE/100)*100 
5190 IF N=ll THEN N=10 

5200 IF N=22 THEN N=2 

5210 IF N=99 THEN N=9 

5220 IF N <> A THEN 5160 

5230 IF STAT=30 OR STAT=31 THEN 5390 
5240 IF STAT=20 OR STAT=21 THEN 5430 
5250 IF STS="CRITICAL" THEN TYPS="ALL" 



5260 


IF 


TYPS 


= 


CATIS 


THEN 


PRINT 


#2,17;" 


,"X2; " 


,"Y2; 


5270 


IF 


TYPS 


= 


CAT2S 


THEN 


PRINT 


#2,19; " 


,"X2; " 


,"Y2; 


5280 


IF 


TYPS 


= 


CAT3S 


THEN 


PRINT 


#2,18; " 


,"X2; " 


,"Y2; 


5290 


IF 


TYPS 


= 


"SATE" THEN PRINT #2,10; 


","X2; 


","Y2 


5300 


IF 


TYPS 


= 


CAT4S 


THEN 


PRINT 


#2,9;", 


"X2;", 


IIY2* II 


5310 


IF 


TYPS 


= 


CAT4S 


THEN 


PRINT 


#2,2;", 


"X2; ", 


iiY2* 


5320 


IF 


TYPS 


= 


CAT5S 


THEN 


PRINT 


#2,9;", 


"X2; ", 


iiY2* 


5330 


IF 


TYPS 


= 


CAT6S 


THEN 


PRINT 


#2,20;" 


,"X2;" 


,"Y2; 


5340 


IF 


TYPS 


= 


CAT7S 


THEN 


PRINT 


#2,22;" 


,"X2;" 


,"Y2; 


5350 


IF 


TYPS 


= 


CAT8S 


THEN 


PRINT 


#2,21;" 


,"X2;" 


,"Y2; 


5360 


IF 


TYPS 


= 


CAT9S 


THEN 


PRINT 


#2,8;", 


"X2;", 


"Y2; " 



," 0 ;"," 0;","0 

" " 0 ;"," 0;","0 

" "0 "0 

II lln. II lln. II lln 
, U , ) ^ 

," 0 ; "," 0;","0 

,"10;","0;","6.28 

," 0 ;"," 0;","0 
II IIQ. II II 



","0 
" ,"0 



II lln. II II 

> > 

II iin. II II 

) > » 

IIQ. II IIQ 



CD CD CD 
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5370 IF TYP$ = CAT10$ THEN PRINT #2,13; " ,"X2; " ,"Y2; " ,"0; " ,"0; " ,"0 
5380 GOTO 5450 

5390 PRINT #2,6;","X2-8;","Y2-4;","0;","0;","0 
5400 PRINT #2,15;","X2+8;","Y2+4;","0;","0;","0 
5410 PRINT #2,14;","X2+4;","Y2+2;","0;","0;","0 
5420 GOTO 5450 

5430 PRINT #2,0;","X2;","Y2;","0;","0;","0 

5440 PRINT #2,2;","X2;","Y2;","8;","0;","6.28 

5450 K=1 

5460 GOTO 5160 

5470 CLOSE 

5480 IF ST$="AUTOVON" OR ST$="CRITICAL" THEN 5670 
5490 OPEN "I",#1,E$ 

5500 OPEN "0",#2,DRV$ + "RLINK" 

5510 IF EOF(l) THEN GOTO 5660 

5520 INPUT #1,C0DE1,C0DE2,XU1,YU1,XU2,YU2,XR1,YR1,XR2,YR2 

5530 N1 = CODE1-INT(CODE1/100)*100 

5540 IF N1 = 22 THEN N1 = 2 

5550 IF N1 = 99 THEN N1 = 9 

5560 IF N1 = 11 THEN N1 = 10 

5570 N2 = CODE2-INT(CODE2/100)*100 

5580 IF N2 = 22 THEN N2 = 2 

5590 IF N2 = 99 THEN N2 = 9 

5600 IF N2 = 11 THEN N2 = 10 

5610 IF N1 <> N2 THEN 5510 

5620 IF N1 <> A AND N2 <> A THEN 5510 

5630 PRINT #2,0;","XR1;","YR1;","0;","0;","0 

5640 PRINT #2,1;","XR2;","YR2;","0;","0;","0 

5650 GOTO 5510 

5660 CLOSE 

5670 CLS 

5680 GOSUB 1460 

5690 N$ = DRV$ + "RNODE" 

5700 GOSUB 1460 

5710 KILL DRV$ + "RNODE" 

5720 IF ST$="AUTOVON" OR ST$="CRITICAL" THEN 5760 
5730 N$ = DRV$ + "RLINK" 

5740 GOSUB 1460 

5750 KILL DRV$ + "RLINK" 

5760 OPEN "I",#1,H$ 

5770 OPEN "0",#2,DRV$ + "LEGTEMP" 

5780 IF EOF(l) THEN GOTO 5870 

5790 INPUT #1,SY$,RN,XPT,YPT,CD,RAD 

5800 IF SY$ < > ST$ THEN 5780 

5810 IF RN < > A THEN 5780 

5820 IF CD=2 THEN 5850 ELSE 5830 

5830 PRINT #2,CD;","XPT;","YPT;","RAD;","0;","0 



I 
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5840 GOTO 5860 

5850 PRINT #2,CD;","XPT;","YPT; ", "RAD;", "0; ","6.28 
5860 GOTO 5780 
5870 CLOSE 

5880 N$=DRV$ + "LEGTEMP" 

5890 GOSUB 1460 
5900 OPEN "I",#1,G$ 

5910 IF EOF(l) THEN GOTO 5980 
5920 INPUT #1,R0W,C0L,A$,R 
5930 IF R < > 77 THEN 5950 
5940 LOCATE ROW, COL: PRINT A$ 

5950 IF R < > A THEN 5910 
5960 LOCATE ROW, COL: PRINT A$ 

5970 GOTO 5910 
5980 CLOSE 

5990 KILL DRV$ + "LEGTEMP" 

6000 IF K=1 THEN 6030 
6010 LOCATE 23,1 

6020 PRINT "THERE ARE NO SWITCHES IN THIS REGION. " 

6030 IF ST$="MEECN" THEN RETURN 
6040 LOCATE 24,1 

6050 IF ST$="DSCS" THEN INPUT "PRESS RETURN WHEN READY ";P$ 

6060 IF ST$="DSCS" THEN RETURN 

6070 INPUT "ENTER R FOR ANOTHER REGION OR US LEVEL, Q TO QUIT";OPT$ 

6080 IF OPT$="R" THEN SCREEN 0: COLOR 14,0,0 
6090 IF OPT$="R" THEN GOTO 4340 
6100 SCREEN 0: COLOR 14,0,0 
6110 PRINT 

6120 INPUT "DO YOU WISH TO SEE A LISTING OF THIS SYSTEM? <Y>ES OR <N>0";AS$ 
6130 IF AS$="N" THEN RETURN 
6140 PRINT 

6150 INPUT "ENTER S FOR ON SCREEN, P FOR ON PAPER"; ANS$ 

6160 GOSUB 14540 
6170 RETURN 
6180 END 

6190 REM *****************’*^*’’^**’*^**********^********************** 

6200 PAD$=" Department of Defense " 

6210 GOSUB 650 
6220 TES=0 
6230 GOSUB 580 
6240 PRINT 



6250 PRINT " 


DOD SYSTEMS AVAILABLE 


II 


6260 PRINT " 


1. AUTODIN 


II 


6270 PRINT " 


2. AUTOVON 


II 


6280 PRINT " 


3. AUTOSEVOCOM 


II 


6290 PRINT " 


4. Hot-Line 


II 


6300 PRINT " 


5. MEECN 


II 
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6310 PRINT " 6. Washington Area Wideband System " 

6320 PRINT " 7. DSCS " 

6330 PRINT " 8. JCSAN " 

6340 PRINT " 9. QUIT 

6350 PRINT: : PRINT " ENTER OPTION DESIRED 

6360 INPUT T 

6370 PRINT 

6380 CIS 

6390 PRINT 

6400 IF T = 9 THEN 4000 

6410 IF DRV$>"B: " THEN 6430 

6415 PRINT "ENTER DISC NO. 18 IN THE" 

6420 INPUT "B-DRIVE AND ENTER RETURN"; A$ 

6430 RESET 

6440 IF T = 1 THEN GOSUB 7420 

6450 IF T = 2 THEN GOSUB 7510 

6460 IF T = 3 THEN GOSUB 1040 

6470 IF T = 4 THEN 6530 

6480 IF T = 5 THEN 7650 

6490 IF T = 6 THEN 9140 

6500 IF T = 7 THEN 9030 

6510 IF T = 8 THEN 8760 

6520 GOTO 6200 

6530 REM *********************************************** 

6540 WIDTH 80: CIS: SCREEN 0: COLOR 14,0,0 
6550 PRINT 
6560 PRINT 

6570 PRINT " WASHINGTON-TO-MOSCOW HOTLINE" 

6580 PRINT 

6590 PRINT "The Washi ngton-to-Moscow Hotline is routed over cable and Satellite" 
6600 PRINT 

6610 PRINT "Select one of the options below:" 

6620 PRINT 

6630 PRINT " 1. CABLE 2. SATELLITE 3. DCL CONFIGURATION" 

6640 PRINT " 4. CONCEPT OF OPERATIONS 5. QUIT" 

6650 PRINT 
6660 PRINT 

6670 INPUT "OPTION: ";C 

6680 IF C=5 THEN GOTO 6200 

6690 IF C=2 THEN 7340 

6700 IF C=1 THEN GOTO 6760 

6710 IF C=3 THEN X$=DRV$ + "DCLCON" 

6720 IF C=4 THEN X$=DRV$ + "DCLOPS" 

6730 IF C=4 OR C=3 THEN SET=0 
6740 IF C=4 OR C=3 THEN GOSUB 1090 
6750 GOTO 6540 
6760 CLS 
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6770 N$=DRV$ + "ADCLl" 

6780 CLS 

6790 GOSUB 1460 

6800 S$=DRV$ + "ADCLIS" 

6810 GOSUB 6830 
6820 GOTO 6900 
6830 OPEN "I", #1,S$ 

6840 IF EOF(l) THEN GOTO 6880 
6850 INPUT #1, ROW, COL, A$ 

6860 LOCATE ROW, COL: PRINT A$ 

6870 GOTO 6840 
6880 CLOSE 
6890 RETURN 

6900 INPUT "ENTER D FOR NARRATIVE DATA, N FOR NEXT ROUTE, OR R TO RETURN"; B$ 

6910 IF B$="N" THEN GOTO 6980 

6920 IF B$="D" THEN GOTO 6940 

6930 GOTO 6540 

6940 X$=DRV$ + "HOTLINEl" 

6950 SET=0 

6960 GOSUB 1090 

6970 GOTO 6540 

6980 SCREEN 0: COLOR 14,0,0 

6990 N$=DRV$ + "ADCL2" 

7000 CLS 

7010 GOSUB 1460 

7020 S$=DRV$ + "ADCL2S" 

7030 GOSUB 6830 

7040 INPUT "ENTER D FOR NARRATIVE DATA, N FOR NEXT ROUTE, R FOR RETURN ";B$ 

7050 IF B$="N" THEN GOTO 7120 

7060 IF B$="D" THEN GOTO 7080 

7070 GOTO 6540 

7080 X$=DRV$ + "HOTLINE2" 

7090 SET=0 

7100 GOSUB 1090 

7110 GOTO 6540 

7120 SCREEN 0: COLOR 14,0,0 

7130 N$=DRV$ + "ADCL3" 

7140 CLS 

7150 GOSUB 1460 

7160 S$=DRV$ + "ADCL3S" 

7170 GOSUB 6830 

7180 INPUT "ENTER D FOR NARRATIVE DATA, N FOR NEXT ROUTE, R FOR RETURN ";B$ 

7190 IF B$="N" THEN GOTO 7260 

7200 IF B$="D" THEN GOTO 7220 

7210 GOTO 6540 

7220 X$=DRV$ + "HOTLINE3" 

7230 SET=0 
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7240 GOSUB 1090 
7250 GOTO 6540 
7260 SCREEN 0: COLOR 14,0,0 
7270 N$=DRV$ + "ADCL4" 

7280 CLS 

7290 GOSUB 1460 

7300 S$=DRV$ + "ADCL4S" 

7310 GOSUB 6830 

7320 INPUT " PRESS RETURN WHEN READY ";B$ 

7330 GOTO 6540 
7340 CLS 

7350 N$=DRV$ + "ADCL5" 

7360 CLS 

7370 GOSUB 1460 

7380 S$=DRV$ + "ADCL5S" 

7390 GOSUB 6830 

7400 INPUT " PRESS RETURN WHEN READY ";B$ 

7410 GOTO 6540 
7420 CLS 

7430 E$=DRV$ + "DINLINK" 

7440 F$=DRV$ + "DINNODE" 

7450 CAT2$="ADIN" 

7460 ST$="AUTODIN" 

7470 H$=DRV$ + "DLEGEND" 

7480 G$=DRV$ + "DINNAR" 

7490 GOSUB 4340 
7500 GOTO 6190 
7510 CLS 

7520 F$=DRV$ + "VONNODE" 

7530 G$=DRV$ + "VONNAR" 

7540 H$=DRV$ + "DLEGEND" 

7550 ST$="AUTOVON" 

7560 CAT1$="B4W5" 

7570 CAT2$="BESS" 

7580 CAT4$-"CBES" 

7590 CAT5$="CAEC" 

7600 CAT6$="IAEC" 

7610 CAT7$="IDMS" 

7620 CAT8$="BDMS" 

7630 GOSUB 4340 
7640 GOTO 6190 
7650 CLS: WIDTH 80 
7660 PRINT 
7670 PRINT 

7680 PRINT " THE MINIMUM ESSENTIAL EMERGENCY COMMUNICATIONS NETWORK" 

7690 PRINT " System Description " 

7700 PRINT 
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7710 PRINT 

7720 PRINT " The MEECN systems are those communication systems specifically" 

7730 PRINT "designed to survive and provide a communications capability 
throughout" 

7740 PRINT "a transattack, environment. 

7750 PRINT 

7760 PRINT " The MEECN Supporting Systems are expected to provide some 
degree" 

7770 PRINT "of survivability in a transattack and postattack nuclear 
environment" 

7780 PRINT "and can significantly enhance the probability that JCS messages 
will be" 

7790 PRINT "delivered to the forces in a precise and timely manner. They are"" 

7800 PRINT "comprised of voice and record special-purpose and common-user com-" 

7810 PRINT "munication networks and systems of the Defense Communications 
System" 

7820 PRINT "(DCS), the Unified and Specified Commands, and the Military 
Services. " 



7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 



",A$ 



MEECN SYSTEMS" 



PRINT "For the most part, they are fixed ground-based systems which 
employ a" 

PRINT "mixture of wireline and radio-frequency (RF) transmission media." 
PRINT 

INPUT "PRESS RETURN WHEN READY 
CIS 

PRINT " 

PRINT 
PRINT 
PRINT 
PRINT " 

PRINT 
PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 
PRINT 
PRINT " 

PRINT 
PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT 

INPUT "PRESS RETURN WHEN READY 
CIS: SCREEN 0: COLOR 14,0,0 



Current MEECN Systems (1983)" 



Survivable VLF/LF Transmission Systems" 
WWABNCP HF System" 

WWABNCP UHF System" 

Emergency Rocket Communication System (ERCS)" 
AFSATCOM" 



Next-Generation Improvements (1984-1985)" 



VLF/LF Transmission Systems Upgrade" 
AFSATCOM Upgrades" 

WWABNCP HF Equipment Upgrade" 



",C$ 
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8110 PRINT 
8120 PRINT 
8130 PRINT 

8140 PRINT "Select one of the following options below:" 
8150 PRINT 
8160 PRINT 
8170 PRINT 
8180 PRINT 
8190 PRINT 
8200 PRINT 
8210 PRINT 
8220 PRINT 
8230 PRINT 

8240 INPUT "OPTION: ";Q 
8250 IF 0 = 6 THEN 6200 

8260 IF Q = 1 THEN 8320 

8270 IF Q = 2 THEN 8440 

8280 IF Q = 3 THEN 8480 

8290 IF Q = 4 THEN 8600 

8300 IF Q = 5 THEN 8720 

8310 GOTO 7650 
8320 CLS 

8330 F$=DRV$ + "MEENODE" 

8340 G$=DRV$ + "MEENAR" 

8350 H$=DRV$ + "DLEGEND" 

8360 ST$="MEECN" 

8370 CAT1$="CC" 

8380 CAT2$="BTWCP" 

8390 CAT5$="GEP" 

8400 CAT7$="LCCW" 

8410 A = 0 
8420 GOSUB 4480 
8430 GOTO 8090 

8440 X$=DRV$ + "MEECMEM.TXT" 

8450 SET = 0 
8460 GOSUB 1090 
8470 GOTO 8100 
8480 CLS 

8490 N$=DRV$ + "HFSITEl" 

8500 GOSUB 1460 

8510 OPEN "I",#l,ORV$ + "HFNARl" 

8520 IF EOF(l) THEN 8560 
8530 INPUT #l,ROW,COL,A$ 

8540 LOCATE ROW, COL: PRINT A$ 

8550 GOTO 8520 
8560 CLOSE 
8570 LOCATE 24,1 



1. WWABNCP UHF Network " 

2. WWABNCP HF Network Members and Authorized Users" 

3. WWABNCP HF Network Configuration, NEACP NCS" 

4. WWABNCP HF Network Configuration, SAC ABNCP NCS" 

5. HF AUTODIN Access Stations" 

6. QUIT " 
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8580 INPUT "PRESS RETURN WHEN READY ",T$ 

8590 GOTO 8100 
8600 CIS 

8610 N$=DRV$ + "HFSITE2" 

8620 GOSUB 1460 

8630 OPEN "I",#1,DRV$ + "HFNAR2" 

8640 IF EOF(l) THEN 8680 
8650 INPUT #l,ROW,COL,A$ 

8660 LOCATE ROW, COL: PRINT A$ 

8670 GOTO 3640 
8680 CLOSE 
8690 LOCATE 24,1 

8700 INPUT "PRESS RETURN WHEN READY ",Y$ 

8710 GOTO 8100 
8720 CLS 

8730 X$=DRV$ + "HFDIN.TXT" 

8740 GOSUB 1090 

8750 GOTO 8100 

8760 N$ = DRV$ + "JCSAN" 

8770 GOSUB 1460 

8780 OPEN "I",#1,DRV$ + "JCNAR" 

8790 IF EOF(l) THEN GOTO 8830 
8800 INPUT #1, ROW, COL, S$ 

8810 LOCATE ROW, COL: PRINT S$ 

8820 GOTO 8790 
8830 CLOSE 

8840 LOCATE 24 , 1: INPUT"DO YOU WISH TO SEE A LISTING OF CENTERS";C$ 

8850 IF C$ = "N" THEN 6190 
8860 CLS 

8870 PRINT "COMMUNICATION CENTERS PRIMARY LINES SECONDARY 

LINES" 

8880 OPEN "I",#1,DRV$ + "JCNARl" 

8890 I = 0 

8900 IF I = 12 THEN 8950 
8910 INPUT #1, C$,D$,E$ 

8920 PRINT C$;" "D$; " "E$ 

8930 1=1+1 
8940 GOTO 8900 

8950 PRINT: PRINT "REMOTE CONTROL CENTERS" 

8960 IF EOF(l) THEN 9000 
8970 INPUT #1,A$,AA$ 

8980 PRINT A$;" "AA$ 

8990 GOTO 8960 
9000 CLOSE 

9010 LOCATE 24 , 1: INPUT"PRESS RETURN WHEN READY"; C$ 

9020 GOTO 6190 
9030 CLS 
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9040 F$=DRV$ + "DSCSNODE" 

9050 E$=DRV$ + "DSCSLINK" 

9060 G$=DRV$ + "DSCSNAR" 

9070 H$=DRV$ + "DLEGEND" 

9080 ST$="DSCS" 

9090 CAT9$="ESAT" 

9100 CAT2$="TERM" 

9110 A = 0 
9120 GOSUB 4480 
9130 GOTO 6190 
9140 CIS 

9150 N$=DRV$ + "WAWSITE" 

9160 GOSUB 1460 

9170 OPEN "I",)S!1,DRV$ + "WAWSNAR" 

9180 IF EOF(l) THEN 9220 
9190 INPUT #1,R0W,C0L,A$ 

9200 LOCATE ROW, COL: PRINT A$ 

9210 GOTO 9180 
9220 CLOSE 
9230 LOCATE 24,1 

9240 INPUT "PRESS RETURN WHEN READY ";S$ 

9250 GOTO 6190 
9260 END 

9270 REM************ NASA COMMUNICATIONS SYSTEM ****************** 

9280 CLS: WIDTH 80 
9290 PRINT 

9300 PRINT TAB(15)" NASA COMMUNICATIONS NETWORK 

9310 PRINT TAB(15)" (NASCOM) " 

9320 PRINT 

9330 PRINT TAB(IO)" The NASCOM network is a global point-to-point ground" 
9340 PRINT TAB( 10)"communications system developed to support manned space " 
9350 PRINT TAB( 10)"f 1 ight and unmanned scientific satellite missions of the " 
9360 PRINT TAB(10)"National Aeronautics and Space Administration (NASA) OF the" 
9370 PRINT TAB(10)"United States of America. " 

9380 PRINT 

9390 INPUT "PRESS RETURN WHEN READY"; W$: PRINT 
9400 CLS: PRINT 

9410 PRINT TAB(IO) " Terrestrial -based Spaceflight Tracking and Data" 

9420 PRINT TAB(IO) "Acquisition Network (STDAN) stations and the single " 

9430 PRINT TAB(IO) "ground station facility at White Sands Missle Range " 

9440 PRINT TAB(IO) "(WSMR), New Mexico, which operates with NASA'S Track-" 

9450 PRINT TAB(IO) "ing and Data Relay Satellite System (TDRSS) — geostational " 
9460 PRINT TAB(IO) "orbit-based tracking satellites at 179 degrees west, 79" 
9470 PRINT TAB( 10 V'degrees west, and 41 degrees west longitude respectively — " 
9480 PRINT TAB(10)"are interconnected by leased long-line communications cir-" 
9490 PRINT TAB( 10)"cui ts (NASCOM) using a combination of satellites (INTELSAT/" 
9500 PRINT TAB( 10)"DOMSAT) , submarine cables, landline cables, and wideband " 
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9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9765 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 



PRINT TAB( 10)"radio microwave systems. " 

PRINT TAB(IO)" The hub of this system is the telemetry 
(ANALOG/DIGITAL)" 

PRINT TAB( 10)"information switching computer and other conferencing, mon- 
PRINT TAB(10)"itoring,and patching facilities at the acilities at the " 
PRINT TAB( 10)"Goddard Space Flight Center (GSFC) at Greenbelt, Md. " 

PRINT 

",A$ 



INPUT "RETURN WHEN READY 
CLS 

PRINT " 

PRINT 
PRINT 
PRINT " 

PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 



(NASCOM) 



SELECT ONE OF THE FOUR OPTIONS BELOW: 



1 . 

2 . 



4. 

5. 

6 . 



NASCOM TRUNKING NETWORK " 

LISTING OF LEASED COMMERCIAL SATELLITE EARTH " 
STATIONS SUPPORTING NASCOM " 

LISTING OF COMMERCIAL SATELLITES TRANSPORTING " 
NASCOM CIRCUITS 

DOMSAT SATCOM BROADCAST SYSTEM FOR TDRSS " 
STDAN, NASCOM, AND TDRSS NETWORKS" 

QUIT " 



PRINT " 

PRINT: PRINT 

INPUT "OPTION: ";Q 

CLS: PRINT: PRINT 

IF Q = 6 THEN GOTO 4000 

IF DRV$>"B:" THEN 9770 

INPUT "ENTER DISK 18 INTO THE B-DRIVE AND PRESS RETURN"; E$ 
CLS 
IF Q 
IF 
IF 
IF 
IF 



Q 

Q 

Q 

Q 



1 THEN 9840 

2 THEN 9930 

3 THEN 9960 

4 THEN 9990 

5 THEN 10110 



GOTO 9580 
CLS 

N$=DRV$ + "TRUNKSITE" 
GOSUB 1460 



S$=DRV$ + "TRUNKNAR" 

GOSUB 13180 

LOCATE 24,1: PRINT "PRESS RETURN WHEN READY"; 
INPUT G$ 

GOTO 9580 
GOTO 9580 

X$ = DRV$ + "NASANAR" 

GOSUB 1090 
GOTO 9580 



9960 X$ = DRV$ + "NASA2NAR" 

9970 GOSUB 1090 

9980 GOTO 9580 

9990 N$=DRV$ + "NASASITE" 

10000 CIS 
10010 GOSUB 1460 

10020 OPEN "I",#1,DRV$ + "NASA3NAR" 

10030 IF EOF(l) THEN 10070 
10040 INPUT #1,R0W,C0L,A1$ 

10050 LOCATE ROW, COL: PRINT Al$ 

10060 GOTO 10030 
10070 CLOSE 
10080 LOCATE 24,1 

10090 INPUT "PRESS RETURN WHEN READY"; S$ 

10100 GOTO 9580 

10110 N$=DRV$ + "TRACSIT" 

10120 GOSUB 1460 

10130 OPEN "I",#1,DRV$ + "TRACNAR" 

10140 IF EOF(l) THEN 10190 
10150 INPUT #1,R0W,C0L,A1$ 

10160 LOCATE ROW, COL: PRINT Al$ 

10170 GOTO 10140 

10180 LOCATE 24, 1: INPUT"PRESS RETURN WHEN READY";A$ 
10190 CLOSE 

10200 LOCATE 24, 1: INPUT"PRESS RETURN WHEN READY";A$ 



10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10415 



GSA SYSTEMS AVAILABLE 
1. Federal Telephone System 



GOTO 9580 

REM **************************************^**^* 
PAD$=" GSA Systems " 

GOSUB 650 
TES=0 
GOSUB 580 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT " 2. FTS Matrix 

PRINT 

PRINT " 3. QUIT 

PRINT 

COLOR 14,0,0: PRINT " ENTER OPTION DESIRED 
INPUT T 
PRINT 
CLS 

IF T = 3 THEN 4000 
IF DRV$>"B:" THEN 10430 
PRINT " ENTER DISC NO. S-17 IN THE" 



10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10850 

10860 

10870 

10880 



INPUT " B-DRIVE AND ENTER RETURN"; D$ 
WIDTH 80 

IF T = 1 THEN 10470 
IF T = 2 THEN 10580 
GOTO 10220 
F$=DRV$ + "FTSNODE" 

G$=DRV$ + "FTSNAR" 

H$=DRV$ + "LEGEND" 

E$=DRV$ + "FTSLINK" 

ST$="FTS" 

CATl$="SS-2" 

CAT2$="SS-1" 

CAT3$="SS-3" 

CLS 

GOSUB 4340 
GOTO 10230 
CLS 

X$=DRV$ + "GSANAME.TXT" 

SET=0 



GOSUB 1090 
GOTO 10230 

REM ’'f*********************************^*** 
PAD$=" F A A Systems 

GOSUB 650 



2. QUIT 



TES=0 
GOSUB 580 
PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

COLOR 14,0,0: PRINT " 

INPUT T 

PRINT 

CLS 

IF T = 1 THEN 10820 
IF T = 2 THEN 4000 
GOTO 10640 
F$=DRV$ + "FAANODE" 
E$=DRV$ + "FAALINK" 



FAA SYSTEMS AVAILABLE 



1. FAA HF RADIO SYSTEM 



G$=DRV$ + 
H$=DRV$ + 
ST$="FAA" 
CAT1$="REG0" 
CAT2$="NAFEC" 



"FAANAR" 

"LEGEND" 



ENTER OPTION DESIRED 



10890 

10900 

10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 



CAT5$="ARTCC" 

CAT8$="BACK" 

CLS 

GOSUB 4340 
GOTO 10630 
END 
REM 

PAD$=" FEMA Systems " 

GOSUB 650 

TES=0 



GOSUB 580 
PRINT 
PRINT " 

PRINT " 

PRINT " 1. 

PRINT " 2. 

PRINT " 3. 

PRINT " 4. 

PRINT " 5. 

PRINT " 6. 

PRINT 

COLOR 14,0,0: PRINT " ENTER OPTION DESIRED 

INPUT T 

PRINT 

CLS 



FEMA SYSTEMS AVAILABLE 

Emergency Broadcast System (EBS) 
FEMA Regional Maps 
FEMA National Teletype System 
FEMA National Radio System 
FEMA National Voice System 
QUIT 



IF 

IF 

IF 

IF 

IF 

IF 



= 1 THEN 11220 



THEN 

THEN 

THEN 

THEN 



12620 

13250 

13510 

13380 



THEN 4000 



GOTO 10950 
REM 






CLS: SCREEN 0: WIDTH 40: COLOR 14,0,0 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



THE EMERGENCY BROADCAST SYSTEM" 
System Description" 

The National-level EBS, when acti-" 
vated, consists of a nationwide network" 
of voluntary participating radio and TV" 
(audio only) stations interconnected by" 
telephone company circuitry. The system" 
is designed to maintain communications" 
with the public during an emergency by" 
broadcasting emergency instructions," 
news, Governor's and Presidential mes-" 
sages. " 
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11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11495 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 

11810 



PRINT 

PRINT "SELECT ONE OF THE FOLLOWING OPTIONS" 
PRINT 
PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT 

PRINT "ENTER OPTION DESIRED 
INPUT TI 

IF TI=6 THEN GOTO 10960 
IF DRV$>"B: " THEN 11510 
PRINT "ENTER DISC NO. S-18 IN THE" 

INPUT "B-DRIVE AND ENTER RETURN"; D$ 

WIDTH 40 

IF TI=1 THEN GOTO 11570 
IF TI=2 THEN GOTO 11880 
IF TI=3 THEN GOTO 12290 
IF TI=4 THEN GOTO 12060 
IF TI=5 THEN GOTO 12350 
CLS; SCREEN 0; COLOR 14,0,0 
N$=DRV$ + "EBSCHT" 

CLS 

GOSUB 1460 
S$=DRV$ + "EBSCHTS" 

GOSUB 13180 
LOCATE 1,1 
PRINT 

PRINT CHR$(218); 

FOR 1=1 TO 26 
PRINT CHR$(196); 

NEXT I 

PRINT CHR$(191) 

FOR 1=1 TO 8 

PRINT CHR$( 179): LOCATE 2+1,28: PRINT CHR$(179) 
NEXT I 

PRINT CHR$(192); 

FOR 1=1 TO 26 
PRINT CHR$(196); 

NEXT I 

PRINT CHR$(217) 

PRINT 

PRINT 

INPUT " SELECTION ";TT$ 

IF TT$="0" THEN GOTO 11220 



1. Activation Procedures" 

2. (300) Network (Telephone)" 

3. Contacts List" 

4. (500) Network (Teletype)" 

5. Primary Relay Stations " 

6. QUIT" 
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11820 IF VAL(TT$) < 0 OR VAL(TT$) > 6 THEN GOTO 11570 
11830 PASS$=TT$ 

11840 SET=1 

11850 X$=DRV$ + "EBSDETAI" 

11860 GOSUB 1090 
11870 GOTO 11570 
1 1 n 9 

11890 N$="USAOUT. TXT" 

11900 CIS 

11910 GOSUB 1460 

11920 N$=DRV$ + "EBS300C" 

11930 GOSUB 1460 

11940 S$=ORV$ + "EBS300S" 

11950 GOSUB 13180 
11960 LOCATE 23,1 

11970 PRINT "DO YOU WISH TO SEE NARRATIVE DATA ? " 

11980 INPUT "ENTER Y FOR YES OR N FOR NO ",ANS$ 

11990 PRINT CHR$(27);"S1" 

12000 IF ANS$="N" THEN GOTO 11220 
12010 PASS$="7" 

12020 X$=DRV$ + "EBSDETAI" 

12030 SET=1 
12040 GOSUB 1090 
12050 GOTO 11220 
12060 CLS 

12070 N$="USAOUT. TXT" 

12080 CLS 

12090 GOSUB 1460 

12100 N$=DRV$ + "EBS500C" 

12110 GOSUB 1460 

12120 S$=DRV$ + "EBS500S" 

12130 GOSUB 13180 

12140 INPUT "Detail on Next Page. Enter C to Continue or R to Return to menu "; 
ANS$ 

12150 IF ANS$="R" THEN GOTO 11210 
12160 X$=DRV$ + "EBSDETAI" 

12170 PASS$="8" 

12180 SET=1 
12190 GOSUB 1090 
12200 CLS 

12210 INPUT "ENTER R TO RETURN TO MAP, M FOR MENU OR N FOR NARRATIVE ";ANS$ 
12220 IF ANS$="R" THEN GOTO 12060 
12230 IF ANS$="M" THEN GOTO 11210 
12240 PASS$="9" 

12250 SET=1 
12260 GOSUB 1090 
12270 GOTO 11210 



12280 GOTO 11220 
12290 CLS 
12300 PASS$="10" 

12310 X$=DRV$ + "EBSDETAI" 

12320 SET=1 
12330 GOSUB 1090 
12340 GOTO 11220 
12350 CLS 

12360 PRINT"PRIMARY RELAY STATIONS" 

12370 PRINT: PRINT 

12380 OPEN "I",#1,DRV$ + "PRADIO" 

12390 K=1 
12400 J=4 

12410 IF EOF(l) THEN 12590 
12420 INPUT #1,S$,R$,L$,T$ 

12430 PRINT " STATE: S$ 

12440 J=J+1 

12450 PRINT " RADIO STATION: R$ 

12460 J=J+1 

12470 PRINT " LOCATION: L$ 

12480 J=J+1 

12490 PRINT " TELEPHONE NO: ";T$ 

12500 PRINT 
12510 N=INT(51/J) 

12520 K=K+1 

12530 IF K>N THEN 12550 
12540 GOTO 12410 

12550 INPUT "ENTER C TO CONTINUE, Q TO QUIT";A$ 

12560 IF A$="Q" THEN 12590 
12570 CLS 
12580 GOTO 12390 
12590 CLOSE 

12600 INPUT "PRESS RETURN WHEN READY"; C$ 

12610 GOTO 11220 

12620 REM ***********’*f^*******’*f********************** 
12630 CLS: SCREEN 0: WIDTH 40: COLOR 14,1,0 



12640 


PRINT 


















12650 


PRINT 


It 






REGIONAL MENU 






12660 


PRINT 


II 
















12670 


PRINT 


II 


WHAT REGION 


DO 


YOU WANT 


TO SEE? 




12680 


PRINT 


II 
















12690 


PRINT 


II 


REGION 








STATES 






12700 


PRINT 


II 
















12710 


PRINT 


II 


1. 


ME, 


NH, 


MA, 


VT, RI, 


CT 




12720 


PRINT 


II 


2. 


NY, 


NJ, 


PR, 


VI 






12730 


PRINT 


II 


3. 


PA, 


WV, 


VA, 


MD, DC(NCR), DE 




12750 


PRINT 


II 


4. 


KY, 


TN, 


NC, 


SC, GA, 


AL, MS, 


FL' 
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12770 


PRINT " 


5. 


MI, 


WI, 


IL, 


IN, 


OH, 


MN 


12780 


PRINT " 


6. 


TX, 


OK, 


AR, 


LA, 


NM 




12790 


PRINT " 


7. 


lA, 


MO, 


NE, 


KS 






12800 


PRINT " 


8. 


ND, 


SD, 


MT, 


WY, 


UT, 


CO 


12810 


PRINT " 


9. 


NV, 


CA, 


AZ, 


HI, 


GU, 


AS 


12820 


PRINT " 


10. 


WA, 


OR, 


ID, 


AK 






12830 


PRINT " 


11. 


Qui t 











12840 

12850 

12860 

12870 

12880 

12890 

12900 

12905 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 



PRINT 

COLOR 14,0,0: PRINT " 

INPUT R 

PRINT 

IF R=ll THEN GOTO 10960 
WIDTH 80 

IF DRV$>''B: " THEN 12910 
INPUT " PLACE DISC 
RESET 
CLS 

IF R=1 THEN N$=DRV$ 

IF R=2 THEN N$=DRV$ 

IF R=3 THEN N$=DRV$ 

IF R=4 THEN N$=DRV$ 

IF R=5 THEN N$=DRV$ 



ENTER SELECTED REGION"; 



NO. 16 IN DISC DRIVE B AND ENTER RETURN"; RET$ 



"REGI0N1.TXT" 

"REGI0N2.TXT" 

"REGI0N3.TXT" 

"REGI0N4.TXT" 

"REGI0N5.TXT" 

"REGI0N6.TXT" 

"REGI0N7.TXT" 

"REGI0N8.TXT" 

"REGI0N9.TXT" 



VAR$="R1" 

VAR$="R2" 

VAR$="R3" 

VAR$="R4" 

VAR$="R5" 

VAR$="R6" 

VAR$="R7" 

VAR$="R8" 

VAR$="R9" 



IF R^6 THEN N$=DRV$ 

IF R=7 THEN N$=DRV$ 

IF R=8 THEN N$=DRV$ 

IF R=9 THEN N$=DRV$ 

IF R=10 THEN N$=DRV$ + "REGI0N10.TXT": VAR$="R10" 
IF R > 11 OR R < 1 THEN GRAPH: GOTO 12850 
WIDTH 80: CLS: SCREEN 2: COLOR 14,0,0 
PRINT 

PRINT " REGION "; R 

GOSUB 1460 

FOR 1=1 TO 22 

PRINT 

NEXT I 

PRINT "DO YOU WANT REGION ";R;"INFO?" 

INPUT "ENTER Y FOR YES OR N FOR NO";W$ 

IF W$="N" THEN GOTO 12630 
SET=0 

X$ = DRV$ + "STATLIST" 

GOSUB 14950 
GOTO 12630 
OPEN "I", #1,S$ 

IF EOF(l) THEN GOTO 13230 
INPUT #1, ROW, COL, A$ 

LOCATE ROW, COL: PRINT A$ 

GOTO 13190 



13230 CLOSE 
13240 RETURN 

13250 F$=DRV$ + "NATSNODE" 

13260 G$=DRV$ + "NATSNAR" 

13270 H$=DRV$ + "DLEGEND" 

13280 E$=DRV$ + "NATSLINK" 

13290 CAT2$="CRC" 

13300 CAT4$="FRC" 

13310 CAT5$="SCD0" 

13320 ST$="FNATS" 

13330 PRINT "Place Disk No. D-18 into the B-drive 
13340 INPUT "and press RETURN. ",B$ 

13350 CLS 

13360 GOSUB 4340 

13370 GOTO 10950 

13380 E$=DRV$ + "NAVSLINK" 

13390 F$=DRV$ + "NAVSNODE" 

13400 G$=DRV$ + "NAVSNAR" 

13410 H$=DRV$ + "DLEGEND" 

13420 CAT1$="ASC" 

13430 CAT2$="FRC" 

13440 CAT5$="SCDO" 

13450 ST$="FNAVS" 

13460 PRINT "Place Disk No. D-18 into the B-Drive 
13470 INPUT "and press RETURN. ",B$ 

13480 CLS 

13490 GOSUB 4340 

13500 GOTO 10950 

13510 E$=DRV$ + "NARSLINK" 

13520 F$=DRV$ + "NARSNODE" 

13530 G$=DRV$ + "NARSNAR" 

13540 H$=DRV$ + "DLEGEND" 

13550 CAT1$ = "ASC" 

13560 CAT2$="FRC" 

13570 CAT4$="NET" 

13580 CAT5$="SCDO" 

13590 ST$="FNARS" 

13600 PRINT "Place Disk No. D-18 into the B-drive 
13610 INPUT "and press RETURN. ",B$ 

13620 CLS 
13630 GOSUB 4340 
13640 GOTO 10950 

13650 REM *****************’*f** ******************* 
13660 PAD$=" Commercial Communications Systems " 
13670 GOSUB 650 
13680 TES=0 
13690 GOSUB 580 



13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13780 

13790 

13800 

13810 

13820 

13830 

13840 

13850 

13860 

13870 

13880 

13890 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13980 

13990 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 

14120 

14130 

14140 

14150 

14160 



Commercial Systems available: 

1. Comm. Sat. Conus 

2. MCI Microwave System 

3. MCI Fiber Optic Routes 

4. QUIT 



PRINT 
PRINT ' 

PRINT ■ 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT 

COLOR 14,0,0: PRINT " ENTER OPTION DESIRED 

INPUT T 

PRINT 

CLS 

IF T=4 THEN 4000 
IF T=1 THEN 13870 
IF T=2 THEN 14040 
IF T=3 THEN 14150 
GOTO 13650 
CLS 

N$="USAOUT. TXT" 

GOSUB 1460 

N$=DRV$ + "COMSAT.TXT" 

GOSUB 1460 

S$=DRV$ + "COMSATD.TXT" 

GOTO 13970 
LOCATE 23,1 

INPUT;" PRESS RETURN WHEN READY ";B 
GOTO 13660 
OPEN "I", #1,S$ 

IF EOF(l) THEN GOTO 14020 
INPUT #1, ROW, COL, A$ 

LOCATE ROW, COL: PRINT A$ 

GOTO 13980 
CLOSE 

GOTO 13940 
F$=DRV$ + "MCINODE" 

G$=DRV$ + "MCINAR" 

H$=DRV$ + "LEGEND" 

E$=DRV$ + "MCILINK" 

ST$="MCI" 



CAT1$="TERM" 

CAT2$="JUNC" 

CAT3$="REPT" 

CLS 

GOSUB 4340 
GOTO 13650 
E$=DRV$ + "MFOLINK" 
F$=DRV$ + "MFONODE" 
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14170 

14180 

14190 

14200 

14210 

14220 

14230 

14240 

14250 

14260 

14270 

14280 

14290 

14300 

14310 

14320 

14330 

14340 

14350 

14360 

14370 

14380 

14390 

14400 

14410 

14420 

14430 

14440 

14450 

14460 

14470 

14480 

14490 

14500 

14510 

14520 

14530 

14540 

14550 

14560 

14570 

14580 

14590 

14600 

14610 

14620 



G$=DRV$ + "MFONAR" 

H$=DRV$ + "LEGEND" 

ST$="MCI FO" 

CAT1$="TERM" 

CAT2$="JUNC" 

CAT7$="TAND" 

GOSUB 4340 
GOTO 13650 
END 

REM ************************* **^**^***********^*******^** 
PAD$=" Critical Comm. Facilities " 

GOSUB 650 
TES=0 
GOSUB 580 
PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT " ENTER OPTION DESIRED 
INPUT T 
PRINT 
CLS 

IF T = 1 THEN 14450 
IF T = 2 THEN 4000 
GOTO 14260 
CLS 

F$=DRV$ + "CRITFAX" 

G$=DRV$ + "CRITNAR" 

H$=DRV$ + "LEGEND" 

ST$="CRITICAL" 

CAT2$="ALL" 

GOSUB 4340 
GOTO 14260 
END 

IF ANS$="P" THEN 14800 
CLS: WIDTH 80 
PRINT 



Key Facility List" 

1. Conus CCF' s 

2. QUIT 



PRINT" 

PRINT 

PRINT" 

PRINT" 

STAT 

PRINT 

K=0 



FACILITY 



LAT 



";ST$;" FACILITIES LIST' 
LON X 



U. S. MAP 
Y X 



CODE" 



REGION" 
Y SYS 
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14630 OPEN 

14640 IF EOF(l) THEN GOTO 14760 

14650 INPUT #1,LAT,L0N,A$,X,Y,X1,Y1,STAT,SYS$,N0D 

14660 IF LAT=0 AND LON=0 THEN 14640 

14670 PRINT A$; TAB(24); LAT; TAB(30); LON; TAB(37); X; TAB(42); Y; TAB(47); XI; TAB(52); 

Yl; TAB(58); SYS$; TAB(63); STAT; TAB(70); NOD 
14680 K=K+1 

14690 IF K<15 THEN GOTO 14640 
14700 PRINT 

14710 INPUT "ENTER C TO CONTINUE OR Q TO QUIT ";C$ 

14720 IF C$ = "Q" THEN 14760 

14730 PRINT 

14740 K=0 

14750 GOTO 14640 

14760 PRINT 

14770 CLOSE 

14780 INPUT "PRESS RETURN WHEN READY"; Q$ 

14790 GOTO 14940 
14800 WIDTH 40:CLS 

14810 INPUT "POSITION PAPER AND RETURN"; C$ 

14820 LPRINT " ";ST$;" FACILITIES LIST" 

14830 LPRINT 

14840 LPRINT " U. S. MAP REGION" 

14850 LPRINT " FACILITY LAT LON X Y X Y SYS 

STATUS CODE" 

4860 LPRINT 

14870 OPEN "I",#1,F$ 

14880 IF EOF(l) THEN GOTO 14930 

14890 INPUT #1,UT,L0N,A$,X,Y,X1,Y1,STAT,SYS$,N0D 

14900 IF LAT=0 AND LON=0 THEN 14880 

14910 LPRINT A$;TAB(24); LAT;TAB(30); LON; TAB(37); X; TAB(42); Y; TAB(47); XI; TAB(52); 

Yl; TAB( 58); SYS$; TAB(64); STAT; TAB(70); NOD 
14920 GOTO 14880 
14930 CLOSE 
14940 RETURN 

14950 REM ^ * ^ * ^^* ^ ** ^ ****** ** |_j ^ ******* ^ ^ ^ * ’^ ^ ^ **** ^* * 

14960 CLS: WIDTH 80 

14970 PRINT "To receive information concerning a category enter a Y for yes." 
14980 PRINT "Enter RETURN for default, for all categories default is no." 

14990 PRINT 
15000 PRINT 

15010 INPUT " NAME";A$ 

15020 INPUT " STATUS"; B$ 

15030 INPUT " POSITION TITLE"; C$ 

15040 INPUT " DDD PHONE NO. ";D$ 

15050 INPUT " FTS PHONE NO. ";E$ 

15060 INPUT " AUTOVON PHONE NO. ";F$ 
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15070 INPUT " HOME ADDRESS"; G$ 

15080 INPUT " HOME PHONE"; H$ 

15090 CIS; WIDTH 80 
15100 PRINT 
15110 PRINT 

15120 INPUT "ENTER S FOR SCREEN LISTING, P FOR A PAPER LISTING"; L$ 
15130 CLS 

15140 IF L$ = "P" THEN 15530 
15150 PRINT TLE$ 

15160 PRINT 

15170 OPEN "I",#1,X$ 

15180 K=1 

15190 IF EOF(l) THEN 15500 

15200 INPUT#1 , DI F$ , QAME$ , STATS , P$ , DDD$ , FTS$ , VON$ , HADDIS , HADD2S , HNO$ 
15210 IF VAR$="ALL" THEN 15230 
15220 IF DIF$<>VAR$ THEN 15190 
15230 J=1 



15240 


IF A$="Y" 


THEN 


PRINT 


"NAME: 


";QAME$ 


15250 


IF A$="Y" 


THEN 


J=J+1 






15260 


IF B$="Y" 


THEN 


PRINT 


"STATUS: 


"; STATS 


15270 


IF B$="Y" 


THEN 


J=J+1 






15280 


IF 


C$="Y" 


THEN 


PRINT 


"POSITION: 


"; PS 


15290 


IF C$="Y" 


THEN 


J=J+1 






15300 


IF 


D$="Y" 


THEN 


PRINT 


"DDD NO. : 


";DDDS 


15310 


IF 


D$="Y" 


THEN 


J=J+1 






15320 


IF 


E$="Y" 


THEN 


PRINT 


"FTS NO.: 


"; FTSS 


15330 


IF 


E$="Y" 


THEN 


J=J+1 






15340 


IF 


F$="Y" 


THEN 


PRINT 


"AUTOVON NO. : 


"; VONS 


15350 


IF 


F$="Y" 


THEN 


J=J+1 






15360 


IF 


G$="Y" 


THEN 


PRINT 


"HOME ADDRESS: 


"; HADDIS 


15370 


IF 


G$="Y" 


THEN 


J=J+2 






15380 


IF 


G$="Y" 


THEN 


PRINT 


II 


";HADD2S 


15390 


IF 


H$="Y" 


THEN 


J=J+1 






15400 


IF 


H$="Y" 


THEN 


PRINT 


"HOME PHONE: 


";HNOS 



15410 PRINT 
15420 N=INT(23/J) 

15430 K=K+1 

15440 IF K>N THEN 15460 
15450 GOTO 15190 

15460 INPUT "ENTER C TO CONTINUE, Q TO QUIT";Y$ 

15470 IF Y$="Q" THEN 15500 
15480 CLS 
15490 GOTO 15180 
15500 CLOSE 

15510 INPUT "PRESS RETURN WHEN READY"; V$ 

15520 RETURN 

15530 reM****’^’^**’*^*’*^’^’*^***’*^’*^’*^PAPER ljsTS***’^**’^’^’*^’^*’^’^***** 



54 



15540 

15550 

15560 

15570 

15580 

15590 


INPUT "POSITION PAPER AND 
LPRINT TLE$ 

LPRINT 

LPRINT 

OPEN 

IF EOF(l) THEN 15750 


ENTER RETURN"; Q 




15600 

15610 

15620 


INPUT # 1 , 01 F$ , QAME$ , STAT$ , P$ , DDD$ , FTS$ , VON$ , HADD1$ , HADD2$ , HNO$ 
IF VAR$="ALL" THEN 15640 
IF DIF$<>VAR$ THEN 15590 


15630 


IF A$="Y" THEN LPRINT " 


NAME: 


";QAME$ 


15640 


IF B$="Y" THEN LPRINT " 


STATUS: 


"; STAT$ 


15650 


IF C$="Y" THEN LPRINT " 


POSITION: 


";P$ 


15660 


IF D$="Y" THEN LPRINT " 


DDD NO.: 


";DDD$ 


15670 


IF E$="Y" THEN LPRINT " 


FTS NO.: 


";FTS$ 


15680 


IF F$="Y" THEN LPRINT " 


AUTOVON NO. : 


"; VON$ 


15690 


IF G$="Y" THEN LPRINT " 


HOME ADDRESS: 


";HADD1$ 


15700 


IF G$="Y" THEN LPRINT " 




";HADD2$ 


15710 

15720 


IF H$="Y" THEN LPRINT " 
LPRINT 


HOME PHONE: 


";HNO$ 


15730 

15740 

15750 


LPRINT 
GOTO 15590 
CLOSE 






15760 
15770 
15780 
fo on 


INPUT "PRINTING IS COMPLETE. PRESS RETURN 

RETURN 

GOTO 4010 


WHEN READY"; W$ 



Appendix D 
NCSPOC.BAS Listing 



01 COMMON DRV$ 

20 DIM CODES(100),S(100),KOUNT(100) 

30 DEFDBL N,M,C; LASTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu 

260 GOSUB 550 
270 TES=0 
280 GOSUB 580 

290 REM* ************’*^***************************** 
300 PRINT 

310 PRINT" 1. P.O.C. Lists " 

320 PRINT" 2. Emergency Activation Procedures " 

330 PRINT" 3. Network Status Monitoring " 

340 PRINT" 4. Damage Assessment " 

350 PRINT" 5. Resolution of Claim " 

360 PRINT" 6. Zooming " 

370 PRINT" 7. Word Processing (WordStar) " 

380 PRINT" 8. NSC Processing Module " 

390 PRINT" 9. QUIT " 

400 COLOR 14,0,0: PRINT 
410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 



480 


IF 


T=1 


THEN 


CHAIN 


"NCSPOC" 


490 


IF 


T=2 


THEN 


CHAIN 


"NCSACT" 


500 


IF T=3 


THEN 


CHAIN 


"NCSSTAT" 


510 


IF 


T=4 


THEN 


CHAIN 


"NCSDAM" 


520 


IF 


T=5 


THEN 


CHAIN 


"NCSCLAIM 


530 


IF 


T=6 


THEN 


RUN "NCSZOOM" 


540 


IF 


T=7 


THEN 


3400 




550 


IF 


T=8 


THEN 


CHAIN 


"NCSNSC" 


560 


IF 


T=9 


THEN 


SYSTEM 



570 GOTO 250 



- 55 - 



56 



580 LOCATE 10,4: PRINT" DATE LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATE$ 

620 LOCATE 11,28 
630 PRINT TIME$ 

640 RETURN 

650 R£^*******’*f ’'^*******’'f **’*f****’*f*’'f ^******’'f *******’*f **********’*f **** 
660 REM* 

670 REM* This Subroutine produces the logo box for the menus. * 

680 REM* * 

690 [^^f^****’*f*********’*f*******************^’*f******’*f*******’*f****^**’*f** 

700 SCREEN 0: WIDTH 40: CLS 

710 PRINT 

720 COLOR 14,1,0 

730 PRINT CHR$(201); 

740 FOR 1=1 TO 36 
750 PRINT CHR$(205); 

760 NEXT I 

770 PRINT CHR$(187) 

780 PRINT CHR$(186); 

790 FOR 1=1 TO 36 
800 PRINT" "; 

810 NEXT I 

820 PRINT CHR$(186) 

830 PRINT CHR$(186); 

840 PRINT" NCS EMERGENCY TELECOMM. "; 

850 PRINT CHR$(186) 

860 PRINT CHR$(186); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHR$(186) 

890 PRINT CHR$(186); 

900 PRINT PADS;: PRINT CHR$(186) 

910 PRINT CHR$(186); 

920 FOR 1=1 TO 36 
930 PRINT" "; 

940 NEXT I 

950 PRINT CHR$(186) 

960 PRINT CHR$(200); 

970 FOR 1=1 TO 36 
980 PRINT CHR$(205); 

990 NEXT I 

1000 PRINT CHR$(188) 

1010 PAD$=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 
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1060 INPUT"PRESS RETURN FOR MENU. RET$ 

1070 CLS 
1080 RETURN 

1090 R£f^*’*f**’^*’*f * PI [_£ *)«f****A*AiV)*M*f)'c 

1100 SCREEN 0: CLS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF C$="Q" THEN 1280 

1250 PRINT 

1260 1=0 

1270 GOTO 1140 

1280 CLOSE 

1290 PRINT 

1300 INPUr'ENTER RETURN TO CONTINUE ";R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE INPUT n,A$ 

1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY" ;M$ 

1440 CLOSE n 
1450 RETURN 

1460 * PI [_p p ************* )»f * 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0 ,0)-(640 ,250) 
1480 OPEN 

1490 IF EOF(l) THEN 2510 

1500 INPUT #1,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 
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1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE -(X,Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z,,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

**CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

**EARTH STATION 
**CITY (BOX) 

**REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
**CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
**CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
**WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



Y1=Y 

GOTO 1490 

LINE (X1,Y1)-(X,Y),,B 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 
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2000 LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4.Y-1): LINE -(X+4,Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10); LINE -( X+20 ,Y): LINE -(X,Y) 

2030 CIRCLE (X+20, Y-15), 14, ,2. 36,5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1),,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -(X+6 , Y-6): LINE -(X,Y) 

2100 CIRCLE (X+6,Y-6),6,,0,3. 14 
2110 GOTO 1490 
2120 PAINT (X,Y),1 



2130 


GOTO 


1490 




2140 


LINE 


(X1,Y1)-(X,Y),,B 


2150 


GOTO 


1490 




2160 


LINE 


(X-2,Y)-(X+2,Y) 


2170 


LINE 


(X-4,Y+1)- 


-(X+4,Y+1) 


2180 


PSET 


(X,Y-1) 




2190 


GOTO 


1490 




2200 


PSET 


(X,Y-2) 




2210 


LINE 


(X-2,Y-D- 


-(X+2,Y-1) 


2220 


LINE 


(X-4,Y)-(: 


X+4,Y) 


2230 


LINE 


(X-6,Y+D- 


-(X+6,Y+1) 


2240 


LINE 


(X-8,Y+2)- 


-(X+8,Y+2) 


2250 


GOTO 


1490 




2260 


PSET 


(X,Y) 




2270 


PSET 


(X-2,Y) 




2280 


PSET 


(X+2,Y) 




2290 


PSET 


(X,Y-1) 




2300 


PSET 


(X,Y+1) 




2310 


GOTO 


1490 




2320 


LINE 


(X-4,Y-2)- 


-(X+4,Y+2) 


2330 


GOTO 


1490 




2340 


PSET 


(X,Y-2) 




2350 


PSET 


(X,Y-1) 




2360 


PSET 


(X,Y) 




2370 


LINE 


(X-2,Y+1) 


-(X+2,Y+1) 


2380 


PSET 


(X-4,Y+2) 




2390 


PSET 


(X+4,Y+2) 




2400 


GOTO 


1490 




2410 


LINE 


(X+4,Y-2) 


-(X-4,Y+2) 


2420 


LINE 


(X-4,Y-2) 


-(X+4,Y+2) 


2430 


LINE 


(X-4,Y)-(X+4,Y) 


2440 


LINE 


(X,Y+2)-(X,Y-2) 


2450 


GOTO 


1490 




2460 


LINE 


(X+4,Y-2) 


-(X-4,Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y),,,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 R£M*************|_y\j /|_Q|\jQ********* ********** 
2540 REM CLS 
2550 REGION=R 
2560 SET=0 

2570 OPEN "I", #1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE n 

2620 IF LAT>LATU OR LAT<LATD THEN 2650 

2630 IF LON>LONL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGI0N>10 THEN 3380 

2660 REGION=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT #2, LA, YVAL,REG 

2720 IF REGIONOREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YLOW=YVAL 

2780 YHI=YVAL1 

2790 LATLOW=LA 

2800 LATHI=LA1 

2810 CLOSE 

2820 OPEN "I",#1,"L0NFILE" 

2830 L0N1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONOREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 LONl=LO 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 
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2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=( LAT-LATL0W)/( LATHI-LATLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(l)=YLOW 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C))/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=(LAT-LATLOW)/( LATHI-LATLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CLS; WIDTH 80 
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3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 
4000 REM 
4010 PAD$=" 
4020 GOSUB 650 
4030 TES=0 
4040 GOSUB 580 
4050 PRINT 






POC List 



4060 


PRINT 


" Government 






If 


4070 


PRINT 


" 1. NCS 


2. 


NASA 


II 


4080 


PRINT 


" 3. FCC 


4. 


OSTP 


II 


4090 


PRINT 


" 5. Agency Rep. ' s 


6. 


EOC 


II 


4100 


PRINT 


" 7. NCS Recall 


8. 


DGCC Recall " 


4110 


PRINT 


" 9. State Lists 






II 


4120 


PRINT 


" Industry 






II 


4130 


PRINT 


" 10. Pers. Rosters 


11. 


EOC 


II 


4140 


PRINT 


" 12. QUIT 






II 


4150 


PRINT: COLOR 14,0,0: PRINT " 


ENTER OPTION 


DESIR 


4160 


INPUT 


T 








4170 


WIDTH 


80 








4180 


IF T = 


12 THEN 250 








4185 


IF DRV$>"B:" THEN 4210 








4190 


PRINT 


"ENTER DISC NO. D-16 


IN THE" 




4200 


INPUT 


"B-DRIVE AND ENTER RETURN 


";B$ 




4210 


CLS 










4220 


IF T = 


1 THEN 5940 








4230 


IF T = 


2 THEN 8310 








4240 


IF T = 


3 THEN 6640 








4250 


IF T = 


4 THEN GOSUB 1040 








4260 


IF T = 


5 THEN 6230 








4270 


IF T = 


6 THEN 6990 








4280 


IF T = 


7 THEN 7280 








4290 


IF T = 


8 THEN 7310 








4300 


IF T = 


9 THEN 7900 








4310 


IF T = 


10 THEN GOSUB 1040 








4320 


IF T = 


11 THEN 9180 









4330 GOTO 4010 

4340 R£f^***********’'f * L j ^jj*********************** 

4350 CLS: WIDTH 80 

4360 PRINT "To receive information concerning a category enter a Y for yes." 
4370 PRINT "Enter RETURN for default, for all categories default is no." 

4380 PRINT 
4390 PRINT 

4400 INPUT " NAME";A$ 

4410 INPUT " STATUS"; B$ 

4420 INPUT " POSITION TITLE"; C$ 



II 
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4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 



INPUT " ODD PHONE NO. ";D$ 

INPUT" FTS PHONE NO. E$ 

INPUT " AUTOVON PHONE NO. F$ 

INPUT " HOME ADDRESS"; G$ 

INPUT " HOME PHONE"; H$ 

CIS: WIDTH 80 

PRINT 

PRINT 

INPUT "ENTER S FOR SCREEN LISTING, P FOR A PAPER LISTING"; L$ 
CLS 

IF L$ = "P" THEN 4920 
PRINT TLE$ 

PRINT 

OPEN "I",#1,X$ 

K=1 

IF EOF(l) THEN 4890 

INPUT#1 , D I F$ , QAME$ , STAT$ , P$ , DDD$ , FTS$ , VON$ , HADD1$ , HADD2$ , HNO$ 
IF VAR$="ALL" THEN 4620 
IF DIP$<>VAR$ THEN 4580 
J=1 



IF A$="Y" THEN PRINT "NAME; 

IF A$="Y" THEN J=J+1 

THEN PRINT "STATUS: 



THEN J=J+1 

THEN PRINT "POSITION: 



IF B$="Y" 

IF B$="Y" 

IF C$="Y" 

IF C$="Y" THEN J=J+1 

IF D$="Y" THEN PRINT "DDD NO.: 

IF D$="Y" THEN J=J+1 

IF E$="Y" THEN PRINT "FTS NO.: 

IF E$="Y" THEN J=J+1 

IF F$="Y" THEN PRINT "AUTOVON NO.; 

IF F$="Y" THEN J=J+1 

IF G$="Y" THEN PRINT "HOME ADDRESS: 

IF G$="Y" THEN J=J+2 

IF G$="Y" THEN PRINT " 

IF H$="Y" THEN J=J+1 

IF H$="Y" THEN PRINT "HOME PHONE: ";HNO$ 

PRINT 

N=INT(23/J) 

K=K+1 

IF K>N THEN 4850 
GOTO 4580 

INPUT "ENTER C TO CONTINUE, Q TO QUIT";Y$ 

IF Y$="Q" THEN 4890 
CLS 

GOTO 4570 
CLOSE 



QAME$ 

STATS 

P$ 

DDDS 

FTSS 

VONS 

HADDIS 

HADD2S 
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4900 INPUT "PRESS RETURN WHEN READY"; V$ 

4910 RETURN 

4920 R£M*****************’^*py\p£R 

4930 INPUT "POSITION PAPER AND ENTER RETURN"; Q 

4940 LPRINT TLE$ 

4950 LPRINT 
4960 LPRINT 
4970 OPEN "I",#1,X$ 

4980 IF EOF(l) THEN 5140 

4990 INPUT #1 , DI F$ , QAME$ , STAT$ , P$ , DDD$ , FTS$ , VON$ , HADD1$ , HADD2$ , HNO$ 
5000 IF VAR$="ALL" THEN 5030 
5010 IF DIF$<>VAR$ THEN 4980 



5020 


IF A$="Y" 


THEN 


LPRINT " 


NAME: " 


QAME$ 


5030 


IF B$="Y" 


THEN 


LPRINT " 


STATUS: 


STAT$ 


5040 


IF C$="Y" 


THEN 


LPRINT " 


POSITION: " 


P$ 


5050 


IF D$="Y" 


THEN 


LPRINT " 


DDD NO. : " 


DDD$ 


5060 


IF E$="Y" 


THEN 


LPRINT " 


FTS NO.: " 


FTS$ 


5070 


IF F$="Y" 


THEN 


LPRINT " 


AUTOVON NO. : " 


VON$ 


5080 


IF G$="Y" 


THEN 


LPRINT " 


HOME ADDRESS: " 


HADD1$ 


5090 


IF G$="Y" 


THEN 


LPRINT " 


II 


HADD2$ 


5100 


IF H$="Y" 


THEN 


LPRINT " 


HOME PHONE: " 


HNO$ 


5110 


LPRINT 










5120 


LPRINT 










5130 


GOTO 4980 










5140 


CLOSE 











5150 INPUT "PRINTING IS COMPLETE 
5160 RETURN 
5170 GOTO 4010 
5180 



PRESS RETURN WHEN READY"; W$ 



5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 



RE^****** * ************ £0C ei$TS******^*********^*^ 

CLS 

PRINT "To receive information concerning a category enter a Y for yes." 
PRINT "Enter RETURN for default, for all categories default is no." 
PRINT 
PRINT 
INPUT " 

INPUT " 

INPUT " 

INPUT " 

INPUT " 

CLS 
PRINT 
PRINT 

INPUT "ENTER S FOR SCREEN LISTING, P FOR A PAPER LISTING"; L$ 

CLS 

IF L$ = "P" THEN 5700 
PRINT TLE$ 

PRINT 



LOCATION"; A$ 

DDD PHONE NO. ";B$ 

FTS PHONE NO. ";C$ 
AUTOVON PHONE NO. "; D$ 
ADDRESS"; E$ 



5370 PRINT 
5380 OPEN 
5390 K=1 
5400 J=3 

5410 IF EOF(l) THEN 5670 

5420 INPUT #1,AGC$,LCT$,DDD$,FTS$,V0N$,ADD1$,ADD2$ 
5430 IF SYS$="ALL" THEN 5450 



5440 


IF AGC$< 


>SYS$ 


THEN 5400 






5450 


PRINT " 


AGENCY: 




";AGC$ 




5460 


IF A$="Y" 


THEN 


PRINT 


II 


LOCATION: 


";LCT$ 


5470 


IF A$="Y" 


THEN 


J=J+1 








5480 


IF B$="Y" 


THEN 


PRINT 


II 


DDD NO. : 


";DDD$ 


5490 


IF B$="Y" 


THEN 


J=J+1 








5500 


IF C$="Y" 


THEN 


PRINT 


II 


FTS NO. : 


";FTS$ 


5510 


IF C$="Y" 


THEN 


J=J+1 








5520 


IF D$="Y" 


THEN 


PRINT 


II 


AUTOVON NO.: 


";VON$ 


5530 


IF D$="Y" 


THEN 


J=J+1 








5540 


IF E$="Y" 


THEN 


PRINT 


II 


ADDRESS: 


";ADD1$ 


5550 


IF E$="Y" 


THEN 


J=J+2 








5560 


IF E$="Y" 


THEN 


PRINT 


II 




";ADD2$ 



5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 



PRINT 

PRINT 

N=INT(23/J) 

K=K+1 

IF K>N THEN 5630 
GOTO 5410 

INPUT "ENTER C TO CONTINUE, OR Q TO QUIT";Y$ 

IF Y$="Q" THEN 5670 
CIS 

GOTO 5390 
CLOSE 

INPUT "PRESS RETURN WHEN READY"; V$ 

RETURN 

R EM* |^J^y^**yf*****:*f********* 

INPUT "POSITION PAPER AND ENTER RETURN"; Q 
LPRINT TLE$ 

LPRINT 

LPRINT 

OPEN "I",#1,X$ 

IF EOF(l) THEN 5900 

INPUT #1 , AGC$ , LCT$ , DDD$ , FTS$ , VON$ , ADD1$ , ADD2$ 

IF SYS$="ALL" THEN 5800 

IF SYS$< >AGC$ THEN 5760 

LPRINT " AGENCY: ";AGC$ 

IF A$="Y" THEN LPRINT " LOCATION: "; LCT$ 

IF B$="Y" THEN LPRINT " DDD NO.: ";DDD$ 

IF C$="Y" THEN LPRINT " FTS NO.: "; FTS$ 
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5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 



IF D$="Y" THEN LPRINT " 

IF E$="Y" THEN LPRINT " 

IF E$="Y" THEN LPRINT " 

LPRINT 

LPRINT 

GOTO 5760 

CLOSE 

INPUT "PRINTING IS COMPLETE. 

RETURN 

GOTO 4010 



AUTOVON NO. 
ADDRESS: 



VON$ 

";ADD1$ 

";ADD2$ 



PRESS RETURN WHEN READY"; W$ 



REM 






NCS 






Personnel lists are available at the:" 

1. National Level" 

2. Regional Level" 

3. or QUIT" 

ENTER OPTION: 

NCS Personnel" 



CLS 
PRINT 
PRINT 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT 

PRINT TAB(15)" 

INPUT OPT 
TLE$=" 

X$=DRV$ + "PNCS" 

IF OPT = 3 THEN 4010 
IF OPT = 1 THEN VAR$="REG0" 

IF OPT = 2 THEN GOSUB 1040 
IF OPT=2 THEN 5940 
IF R=1 THEN VAR$="REG1" 

IF R=2 THEN VAR$="REG2" 

IF R=3 THEN VAR$="REG3" 

IF R=4 THEN VAR$="REG4" 

IF R=5 THEN VAR$="REG5" 

IF R=6 THEN VAR$="REG6" 

IF R=7 THEN VAR$="REG7" 

IF R=8 THEN VAR$="REG8" 

IF R=9 THEN VAR$="REG9" 

IF R=10 THEN VAR$="REG10" 

GOSUB 4340 
GOTO 5940 

REM*^******^*******AGENC JES’*^*********’*^********^*** 

CLS 

PRINT 

PRINT 

PRINT " Personnel lists are available for these agencies:" 
PRINT " 1. CIA" 

PRINT " 2. Dept, of Commerce" 

PRINT " 3. DOD" 
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6310 


PRINT 


1 




4. 


Dept, of Energy" 


6320 


PRINT 


II 




5. 


Dept, of Interior" 


6330 


PRINT 


1 




6. 


Dept, of State" 


6340 


PRINT 


1 




7. 


Dept, of Transportation 


6350 


PRINT 


1 




8. 


FAA" 


6360 


PRINT 


1 




9. 


FEMA" 


6370 


PRINT 


1 




10. 


GSA" 


6380 


PRINT 


1 




11. 


NASA" 


6390 


PRINT 


1 




12. 


USCG" 


6400 


PRINT ' 


II 




13. 


USIA" 


6410 


PRINT 


II 




14. 


ALL Agencies" 


6420 


PRINT ' 


II 




15. 


or QUIT" 


6430 

6440 


PRINT 
INPUT ' 


"Enter Option: " ,OPT 


6450 

6460 


TLE$=" 
X$=DRV$ + 


NCS Agency Principals and R 

"PAGC" 


6470 


IF OPT 


=1 


THEN 


VAR$="CIA" 




6480 


IF OPT 


=2 


THEN 


VAR$="DOC" 




6490 


IF OPT 


=3 


THEN 


VAR$="DOD" 




6500 


IF OPT 


=4 


THEN 


VAR$="DOE" 




6510 


IF OPT 


=5 


THEN 


VAR$="DOI" 




6520 


IF OPT 


=6 


THEN 


VAR$="DOS" 




6530 


IF OPT 


=7 


THEN 


VAR$="DOT" 




6540 


IF OPT 


=8 


THEN 


VAR$="FAA" 





6550 IF OPT =9 THEN VAR$="FEMA" 

6560 IF OPT =10 THEN VAR$="GSA" 

6570 IF OPT =11 THEN VAR$="NASA" 

6580 IF OPT =12 THEN VAR$="USCG" 

6590 IF OPT =13 THEN VAR$="USIA" 

6600 IF OPT =14 THEN VAR$="ALL" 

6610 IF OPT =15 THEN 4000 
6620 GOSUB 4340 
6630 GOTO 6230 

6640 R£|V|************^ ******* ******* ***yfyc*yf 

6650 CLS 
6660 PRINT 
6670 PRINT 

6680 PRINT TAB(15)" Personnel lists are available at the:" 
6690 PRINT TAB(15)" 1. National Level" 

6700 PRINT TAB(15)" 2. Regional Level" 

6710 PRINT TAB(15)" 3. or QUIT" 

6720 PRINT 

6730 PRINT TAB(15)"Enter Option: "; 

6740 INPUT OPT 
6750 TLE$=" 

6760 X$=DRV$ + "PFCC" 

6770 IF OPT = 3 THEN 4000 



FCC Personnel" 
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6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 



THEN VAR$="NAT" 
THEN 6970 



IF OPT = 1 
IF OPT = 1 
CIS 
PRINT 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)"Enter Option: 
INPUT F 

IF F=1 THEN VAR$="RA" 

IF F=2 THEN VAR$="RB" 

IF F=3 THEN VAR$="RC" 

IF F=4 THEN VAR$="RK" 

IF F=5 THEN VAR$="RF" 

IF F=6 THEN VAR$="RS" 

GOSUB 4340 
GOTO 6640 



Choose from these regions: 

1. Atlanta" 

2 . 

3. 

4. 

5. 

6 . 



Boston" 
Chicago" 

Kansas City" 
San Francisco" 
Seattle" 



REM 



i('k'k'k'k9c'k'k'k'k9('k'k'k'k'ki('k'k 



EOCs 



'k'k'k'k'k'kic'k'k'k'k'k'k'k'k^cic'k'k'k'k'kicic'k 



Emergency Operation Centers are available for these agencies:" 



CIS 
PRINT 
PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

INPUT "Enter Option"; OPT 
TLE$=" 

X$=DRV$ + "EOCA" 

1 THEN SYS$="NCS" 
THEN SYS$="FEMA" 
THEN SYS$="GSA" 
THEN SYS$="FAA" 
THEN SYS$="DOD" 
THEN SYS$="DOS" 
THEN SYS$="FCC" 



1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 

9. 



NCS/DCAOC" 

FEMA" 

GSA" 

FAA" 

DOD" 

Dept, of State" 
FCC" 

ALL Centers" 
or QUIT" 



Emergency Operations Centers" 



IF OPT 
IF OPT 
IF OPT 
IF OPT 
IF OPT 
IF OPT 
IF OPT 
IF OPT 



2 

3 

4 

5 

6 
7 



= 8 THEN SYS$="ALL" 
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7250 IF OPT = 9 THEN 4000 
7260 GOSUB 5180 
7270 GOTO 6990 

7280 RECAD$=DRV$ + "RECALLD" 

7290 RECAN$=DRV$ + "RECALN" 

7300 GOTO 7330 

7310 RECAD$=DRV$ + "DGCCD" 

7320 RECAN$=DRV$ + "DGCCN" 

7330 NUM=0 

7340 SCREEN 0: COLOR 14,0,0 
7350 OPEN "I",#1,RECAD$ 

7360 OPEN "0", #2, "TEMP" 

7370 IF EOF(l) THEN GOTO 7420 

7380 INPUT #1, C,X,Y,D,S,E 

7390 IF D < > NUM THEN GOTO 7370 

7400 PRINT #2,C;","X;","Y;","D;","S;","E 

7410 GOTO 7370 

7420 CLOSE 

7430 N$="TEMP" 

7440 GOSUB 1460 
7450 KILL "TEMP" 

7460 OPEN "I",#1,RECAN$ 

7470 IF EOF(l) THEN GOTO 7530 

7480 INPUT #1,R0W,C0L,A$,E 

7490 IF E=77 THEN LOCATE ( ROW+2) , COL: PRINT A$ 

7500 IF E < > NUM THEN GOTO 7470 
7510 LOCATE (ROW+2) , COL: PRINT A$ 

7520 GOTO 7470 
7530 CLOSE 
7540 LOCATE 24,1 

7550 IF RECAD$=DRV$ + "DGCCD" THEN 7590 

7560 INPUT "ENTER NUMBER FROM DESIRED BOX (0 TO QUIT)"; NUM 

7570 IF NUM=0 THEN 4000 

7580 GOTO 7340 

7590 INPUT"Press RETURN when ready", RET$ 

7600 IF NUM=0 THEN NUM=1 ELSE 4000 
7610 GOTO 7340 
7620 END 

7630 [^^^***^***************Q5'[’P*****’*f*’‘f****’*f *^**’*^**’'^**** 
7640 TLE$=" OSTP Personnel" 

7650 X$="POSTP" 

7660 VAR$="OSTP" 

7670 GOSUB 4340 
7680 GOTO 4000 

7690 RE|v)*********’^********’*f j f^QU57PY poc************^**** 
7700 CLS 
7710 PRINT 
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7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 



Personnel lists are available for these companies: 



1 . 

2 . 

3. 

4. 

5. 



AT&T" 

MCI" 

Western Union" 
ALL Companies" 
or QUIT" 



Industry Personnel" 



PRINT 
PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

INPUT "Enter Option"; OPT 
TLE$=" 

X$="IPOC" 

IF OPT = 

IF OPT = 

IF OPT = 

IF OPT = 

IF OPT = 

GOSUB 4340 
GOTO 7690 

DCM I J CJ Qit i< itic i(i< it 

CLS: SCREEN 0: WIDTH 40: COLOR 14,1,0 
PRINT 

PRINT " REGIONAL MENU 

PRINT 

PRINT " WHAT REGION DO YOU WANT TO SEE? 

PRINT 

PRINT " REGION STATES 

PRINT 



THEN VAR$="ATT" 
THEN VAR$="MCI" 
THEN VAR$="WU" 
THEN VAR$="ALL" 
THEN 4000 



7990 


PRINT 


II 


1. 


ME NH 


MA 


VT 


RI 


CT 


8000 


PRINT 


II 


2. 


NY NJ 


PR 


VI 






8010 


PRINT 


II 


3. 


DE PA 


WV 


VA 


MD 


DC(NCR) 


8030 


PRINT 


II 


4. 


AL MS 


FL 


KY 


TN 


NC SC GA 


8050 


PRINT 


II 


5. 


MI WI 


IL 


IN 


OH 


MN 


8060 


PRINT 


II 


6. 


TX OK 


AR 


LA 


NM 




8070 


PRINT 


II 


7. 


lA MO 


NE 


KS 






8080 


PRINT 


II 


8. 


ND SD 


MT 


WY 


UT 


CO 


8090 


PRINT 


II 


9. 


NV CA 


AZ 


HI 


GU 


AS 


8100 


PRINT 


II 


10. 


WA OR 


ID 


AK 






8110 


PRINT 


II 


11. 


Quit 











8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 



PRINT: COLOR 14,0,0 

PRINT " ENTER SELECTED REGION"; 

INPUT R 

PRINT 

IF R=ll THEN GOTO 4000 
CLS 

X$=DRV$ 

IF R=1 THEN 
IF R=2 THEN 



"STATLIST" 
VAR$="R1" 
VAR$="R2" 
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8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 



IF R=3 THEN 
IF R=4 THEN 
IF R=5 THEN 
IF R=6 THEN 
IF R=7 THEN 
IF R=8 THEN 
IF R=9 THEN 
IF R=10 THEN 
GOSUB 4340 
GOTO 7900 
REM 



VAR$="R3" 

VAR$="R4" 

VAR$="R5" 

VAR$="R6" 

VAR$="R7" 

VAR$="R8" 

VAR$="R9" 

VAR$="R10" 






NASA 






Carriers" 

Carrier" 



NASCOM Prime Commercial 
NASCOM Prime Commercial 
Points of Contact" 

(Space shuttle missions only)" 
Quit " 



CLS 
PRINT 
PRINT 

PRINT TAB( 15)"Personnel lists are available for: 

PRINT TAB(15)" 1. 

PRINT TAB(15)" 2. 

PRINT TAB(15)" 

PRINT TAB(15)" 

PRINT TAB(15)" 3. 

PRINT 

PRINT TAB(15)"ENTER OPTION:"; 

INPUT TT 

IF TT = 3 THEN 4000 
R E 1^ Tit yc^c yc yt yt yc L I S T S 

CLS 

PRINT 

PRINT "To receive information concerning a category enter a Y for yes. 
PRINT "Enter RETURN for default, for all categories default is no." 
PRINT 
PRINT 

INPUT" NAME OF FIRM: ";NAMF$ 

INPUT" NAME OF BRANCH: "; BRCH$ 

INPUT " NAME OF PERSON: NAMP$ 

INPUT" PHONE NO. :"; PHN0$ 

INPUT" ROUTING NO. : ";R0N0$ 

CLS 

PRINT: PRINT 

INPUT "ENTER S FOR SCREEN LISTING, P FOR A PAPER LISTING"; LIS$ 

CLS 

IF TT=1 THEN TTLE$ = "NASCOM PRIME COMMERCIAL CARRIERS" 

IF TT=2 THEN TTLE$ = "POINTS OF CONTACT FOR NASCOM" 

IF TT=1 THEN VAR1$ = "NPCC" 

IF TT=2 THEN VAR1$ = "POC" 

X$=DRV$ + "PNASA" 

IF LIS$ = "P" THEN 8980 
PRINT TTLE$ 



8680 

8690 

8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 



PRINT 

OPEN "I",#1,X$ 

K = 1 

IF EOF(l) THEN 8950 

INPUT #1 , DI F$ , NAM1F$ , BRCH1$ , BRCH2$ , NAMP 1$ , PHN01$ , R0N01$ 

IF DIF$<>VAR1$ THEN 8710 

J=1 

"Y" THEN PRINT "FIRM: 

"Y" THEN J = J 



IF NAMF$ 

IF NAMF$ 

IF NAMP$ 

IF NAMP$ 

IF BRCH$ 

IF BRCH$ 

IF BRCH2$ = 
IF BRCH$ 

IF BRCH$ 

IF PHNO$ 

IF PHNO$ 

IF RONO$ 

IF RONO$ 



+ 1 

"Y" THEN PRINT "MANAGER: 
"Y" THEN J = J + 1 

II Y>> 

II Y>> 

II 



";NAM1F$ 

";NAMP1$ 



= "Y 



THEN PRINT "BRANCH: 

THEN J=J+1 
" THEN GOTO 8840 
THEN PRINT " 

"Y" THEN J=J+1 

"Y" THEN PRINT "PHONE NO. 

"Y" THEN J=J+1 

THEN PRINT "ROUTING NO. 
THEN J=J+1 



II Yii 
II Y" 



";BRCH1$ 

";BRCH2$ 

";PHN01$ 

";R0N01$ 



PRINT 

N=INT(23/J): K=K+1 
IF K>N THEN 8920 
GOTO 8710 

INPUT "ENTER C TO CONTINUE, Q TO QUIT";YY$ 
IF YY$="Q" THEN 8950 
CIS: GOTO 8700 
CLOSE 

INPUT "PRESS RETURN WHEN READY"; VV$ 

GOTO 8310 



8980 R£f</]********** [^U1*2*****yifyf *******Tic****yn«nif **** 

8990 INPUT "POSITION PAPER AND ENTER RETURN"; QQ 
9000 LPRINT TTLES 
9010 LPRINT: LPRINT 
9020 OPEN 

9030 IF EOF(l) THEN 9150 

INPUT #1 ,DIF$ ,NAM1F$ , BRCH1$ ,BRCH2$ ,NAMP1$ ,PHN01$ , R0N01$ 
IF VAR1$="ALL" THEN 9070 



9040 

9050 

9060 



IF DIF$<>VAR1$ THEN 9030 



9070 


IF NAMF$="Y" 


THEN 


LPRINT " 


NAME: 


II 


9080 


IF NAMP$="Y" 


THEN 


LPRINT " 


MANAGER: 


II 


9090 


IF BRCH$="Y" 


THEN 


LPRINT " 


BRANCH: 


II 


9100 


IF BRCH$="Y" 


THEN 


LPRINT " 




II 


9110 


IF PHNO$="Y" 


THEN 


LPRINT " 


PHONE NO. : 


II 


9120 


IF RONO$="Y" 


THEN 


LPRINT " 


ROUTING NO. : 


II 



NAM1F$ 

NAMP1$ 

BRCH1$ 

BRCH2$ 

PHN01$ 

R0N01$ 



9130 LPRINT: LPRINT 
9140 GOTO 9030 
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9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 



CLOSE 

INPUT "PRINTING IS COMPLETE. PRESS RETURN WHEN READY"; WW$ 
GOTO 8310 

************* industry foC’*^’*^*’^**’^’^***’^***** 

CLS 

PRINT 

INPUT "ENTER S FOR SCREEN LISTING, P FOR A PAPER LISTING"; L$ 

IF L$ ="P" THEN 9480 

CLS 

PRINT 

PRINT " Emergency Operations Centers" 

PRINT: PRINT 

OPEN "I",#1,DRV$ + "lEOC" 

K=1 

J=3 

IF EOF(l) THEN 9450 
INPUT#1 , AGC$ , LCT$ , SPV$ , DDD$ 



";AGC$: J=J+1 
"; LCT$; J=J+1 
";SPV$: J=J+1 
";DDD$: J=J+1 



PRINT " AGENCY 
PRINT " LOCATION 
PRINT " SUPERVISOR 
PRINT " DDD NO. 

PRINT: PRINT 
N=INT(37/J) 

K=K+1 

IF K>N THEN 9410 
GOTO 9300 

INPUT "ENTER C TO CONTINUE, OR Q TO QUIT";Y$ 

IF Y$= "Q" THEN 9450 

CLS 

GOTO 9280 
CLOSE 

INPUT "PRESS RETURN WHEN READY"; V$ 

GOTO 4000 

rEm******^PAP ER LI STS**^*’*^^* 

INPUT "POSITION PAPER AND ENTER RETURN"; QQ 
LPRINT"EMERGENCY OPERATIONS CENTERS" 

LPRINT: LPRINT 

OPEN "I",#1,DRV$ + "lEOC" 

IF EOF(l) THEN 9610 

INPUT #1,AGC$,LCT$,SPV$,DDD$ 

LPRINT: LPRINT 

LPRINT" AGENCY: ";AGC$ 



LPRINT" 
LPRINT" 
LPRINT" 
LPRINT 
GOTO 9530 



LOCATION 
SUPERVISOR 
DDD NO 



";LOC$ 

";SPV$ 

";DDD$ 



9620 CLOSE 

9630 INPUrPRINTING IS COMPLETE. PRESS RETURN: ";QQ 
9640 GOTO 4000 



Appendix E 

NCSDAM.BAS Listing 



01 COMMON DRV$ 

20 DIM CODES(100),S(100),KOUNT(100) 
30 DEFDBL N,M,C; USTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu 

260 GOSUB 650 
270 TES=0 



350 

360 



280 GOSUB 
290 REM** 
300 PRINT 
310 PRINT 
320 PRINT 
330 PRINT 
340 PRINT 
PRINT 
PRINT 
370 PRINT 
380 PRINT 
390 PRINT 
400 COLOR 
410 PRINT 
INPUT 
IF T= 
IF T= 
LASTT 
460 PRINT 
470 WIDTH 
IF T= 
IF T= 
IF T= 
IF T= 
IF T= 
IF T= 
IF T= 
IF T= 
IF T= 



580 






420 

430 

440 

450 



480 

490 

500 

510 

520 

530 

540 

550 

560 



1 . 

2 . 

3. 

' 4. 

5. 

6 . 

' 7. 

' 8 . 

' 9. 

14,0 

I 

T 

6 OR 

LASTT 

=T 



P.O. C. Lists 

Emergency Activation Procedures 
Network Status Monitoring 
Damage Assessment 
Resolution of Claim 
Zoomi ng 

Word Processing (WordStar) 

NSC Processing Module 
QUIT 
,0: PRINT 

ENTER OPTION DESIRED"; 

T=7 THEN 460 
THEN 4000 
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1 THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



8 THEN 

9 THEN 



CHAIN "NCSPOC" 
CHAIN "NCSACT" 
CHAIN "NCSSTAT" 
CHAIN "NCSDAM" 
CHAIN "NCSCLAIM" 
RUN "NCSZOOM" 
3400 

CHAIN "NCSNSC" 
SYSTEM 



570 GOTO 250 



- 75 - 



76 



580 LOCATE 10,4: PRINT" DATE LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATES 
620 LOCATE 11,28 
630 PRINT TIMES 
640 RETURN 

660 REM* * 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* * 

700 SCREEN 0: WIDTH 40: CLS 
710 PRINT 
720 COLOR 14,1,0 
730 PRINT CHRS(201); 

740 FOR 1=1 TO 36 
750 PRINT CHRS(205); 

760 NEXT I 

770 PRINT CHRS(187) 

780 PRINT CHRS(186); 

790 FOR 1=1 TO 36 
800 PRINT" "; 

810 NEXT I 

820 PRINT CHRS(186) 

830 PRINT CHRS(186); 

840 PRINT" NCS EMERGENCY TELECOMM. 

850 PRINT CHRS(186) 

860 PRINT CHRS(186); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHRS(186) 

890 PRINT CHRS(186); 

900 PRINT PADS;: PRINT CHRS(186) 

910 PRINT CHRS(186); 

920 FOR 1=1 TO 36 
930 PRINT" 

940 NEXT I 
950 PRINT CHRS(186) 

960 PRINT CHRS(200); 

970 FOR 1=1 TO 36 
980 PRINT CHRS(205); 

990 NEXT I 

1000 PRINT CHRS(188) 

1010 PADS=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 



II . 
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1060 INPUT"PRESS RETURN FOR MENU. RETS 
1070 CLS 
1080 RETURN 

1090 ******* PJ [_^ ************************ ★ 

1100 SCREEN 0: CLS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT AS 
1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF CS="Q" THEN 1280 
1250 PRINT 
1260 1=0 
1270 GOTO 1140 
1280 CLOSE 
1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE ";RS 

1310 GOTO 1450 

1320 OPEN "I",#1,XS 

1330 FOR 1=1 TO 20 

1340 LINE INPUT #1,AS 

1350 IF EOF(l) THEN 1420 

1360 PRINT AS 

1370 NEXT I 

1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";BS 
1400 IF B$o"C" AND BS<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; MS 
1440 CLOSE 
1450 RETURN 

1460 RPM************PI LE p0Qj*********vf**?ir*** 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0,0)-(640,250) 

1480 OPEN 'T',i^<l,NS 

1490 IF EOF(l) THEN 2510 

1500 INPUT #1,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 
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1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE -(X.Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z, ,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 Y1=Y 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

**CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

** EARTH STATION 
**CITY (BOX) 

**REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
**CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
**CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
**WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



GOTO 1490 

LINE (X1,Y1)-(X,Y),,B 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 
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2000 LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4.Y-1): LINE -(X+4.Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10): LINE -(X+20.Y); LINE -(X,Y) 

2030 CIRCLE (X+20 ,Y-15) , 14 , , 2. 36 , 5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1), ,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -( X+6 , Y-6): LINE -(X,Y) 

2100 CIRCLE (X+6, Y-6), 6, ,0,3. 14 

2110 GOTO 1490 

2120 PAINT (X,Y),1 

2130 GOTO 1490 

2140 LINE (X1,Y1)-(X,Y),,B 

2150 GOTO 1490 

2160 LINE (X-2,Y)-(X+2,Y) 

2170 LINE (X-4,Y+1)-(X+4,Y+1) 

2180 PSET (X,Y-1) 

2190 GOTO 1490 
2200 PSET (X,Y-2) 

2210 LINE (X-2,Y-1)-(X+2,Y-1) 

2220 LINE (X-4,Y)-(X+4,Y) 

2230 LINE (X-6,Y+1)-(X+6,Y+1) 

2240 LINE i'X-8,Y+2)-(X+8,Y+2) 

2250 GOTO 1490 
2260 PSET (X,Y) 

2270 PSET (X-2,Y) 

2280 PSET (X+2,Y) 

2290 PSET (X,Y-1) 

2300 PSET (X,Y+1) 

2310 GOTO 1490 

2320 LINE (X-4,Y-2)-(X+4,Y+2), ,B 
2330 GOTO 1490 
2340 PSET (X,Y-2) 

2350 PSET (X,Y-1) 

2360 PSET (X,Y) 

2370 LINE (X-2,Y+1)-(X+2,Y+1) 

2380 PSET (X-4,Y+2) 

2390 PSET (X+4,Y+2) 

2400 GOTO 1490 

2410 LINE (X+4,Y-2)-(X-4,Y+2) 

2420 LINE (X-4,Y-2)-(X+4,Y+2) 

2430 LINE (X-4,Y)-(X+4,Y) 

2440 LINE (X,Y+2)-(X,Y-2) 

2450 GOTO 1490 

2460 LINE (X+4,Y-2)-(X-4,Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y),,,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 RE|v|*************|_j/\j *************** ** 
2540 REM CLS 
2550 REGION=R 
2560 SET=0 

2570 OPEN "I", #1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF LAT>LATU OR LAT<UTD THEN 2650 

2630 IF LON>LONL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGION>10 THEN 3380 

2660 REGI0N=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT #2, LA, YVAL.REG 

2720 IF REGIONoREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YL0W=YVAL 

2780 YHI=YVAL1 

2790 LATL0W=LA 

2800 LATHI=LA1 

2810 CLOSE n 

2820 OPEN "I",#l,"LONFILE" 

2830 L0N1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONoREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 



2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=( LAT-LATL0W)/( LATHI-LATLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(1)=YL0W 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C) )/( 2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=( LAT-LATLOW)/( LATHI-UTLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CLS: WIDTH 80 



3410 

3420 

3430 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 



SHELL "WS 
CLS 

GOTO 250 
DEFDBL N,C,M 

******************************** ************ )«c 



Damage Assessment 



THIS MODULE ALLOWS THE USER TO 
REPORT DAMAGE IN TWD WAYS: 



PAD$=" 

GOSUB 650 
TES=0 
GOSUB 580 
PRINT 
PRINT" 

PRINT" 

PRINT 
PRINT" 

PRINT" 

PRINT" 

PRINT 

COLOR 14,0,0: INPUT"ENTER OPTION DESIRED";T 

DEFDBL N,C,M 

CLS 

IF T=3 THEN 250 
CLS 

IF T=2 THEN 5130 
IF T=1 THEN 4220 
GOTO 4010 

*********************************************** 



1 . 

2 . 

3. 



Observed Entries: 
Predictive Entries: 
QUIT. 



REM 
CLS: WIDTH 
PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT" 
PRINT" 
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Use 
for i 
predi 
PRINT" data 
PRINT 
PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT" 

IF 0P=2 THEN 
IF OP=l THEN 
IF OP=3 THEN 
IF OP=4 THEN 



OBSERVED DAMAGE " 

this option to enter damage data" 
ndividual sites and to confirm " 
cted damage. Enter the following" 
for each damage site. " 

SELECT ONE OF THE FOLLOWING SYSTEMS" 



1. FTS 

2. AUTOVON 

3. AUTODIN 



4. MCI Microwave" 

5. MCI Fiber Optics" 

6. All Critical Faciliti 

7. QUIT" 



ENTER OPTION DESIRED: ";OP 
V$=DRV$ + "VONNODE" 

V$=DRV$ + "FTSNODE" 

V$=DRV$ + "DINNODE" 

V$=DRV$ + "MCINODE" 
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4440 IF 0P=5 THEN V$=DRV$ + "MFONODE" 

4450 IF 0P=6 THEN V$=DRV$ + "CRITFAX" 

4460 IF 0P=7 THEN 4010 

4470 IF 0P<1 OR 0P>7 THEN 4220 

4480 CIS 

4490 IF DRV$>"B; " THEN 4510 

4495 IF 0P=2 OR 0P=3 THEN PRINT"ENTER DISC NO. S-18 IN THE" 

4500 IF 0P=2 OR 0P=3 THEN INPUT"B-DRIVE AND ENTER RETURN"; D$ 

4510 IF 0P=2 OR 0P=3 THEN 4540 

4520 IF DRV$>"B: " THEN 4540 

4525 PRINT"ENTER DISC NO. S-17 IN THE" 

4530 INPUT"B-DRIVE AND ENTER RETURN"; D$ 

4540 RESET 
4550 CIS: WIDTH 80 
4560 PRINT 
4570 PRINT 
4580 PRINT 
4590 1=1 

4600 INPUT" FACILITY DAMAGED. (Enter 7-digt code or 0 to quit)"; CODES( I) 

4610 IF C0DES(I)=0 THEN 4010 
4620 PRINT 
4630 PRINT 

4640 INPUT" SEVERITY CODE. (2 = impaired, 3 = destroyed)"; S( I) 

4650 PRINT 
4660 PRINT 

4670 PRINT" SITE CODE ENTERED: "; CODES( I); " .SEVERITY CODE: ";S(I) 

4680 PRINT 
4690 PRINT 

4700 INPUT"IS DATA CORRECT? Y OR N";AN$ 

4710 IF AN$="N" THEN CLS 
4720 IF AN$="N" THEN 4600 
4730 CLS 
4740 PRINT 

4750 INPUT"DO YOU WANT ANOTHER SITE? Y OR N";AN$ 

4760 IF AN$="Y" THEN CLS 
4770 IF AN$="Y" THEN 1=1+1 
4780 IF AN$="Y" THEN 4600 
4790 WIDTH 40: CLS 
4800 PRINT 

4810 PRINT"STAND BY, SYSTEM PROCESSING" 

4820 FOR J=1 TO I 
4830 K0UNT(J)=0 
4840 NEXT J 

4850 OPEN "0",#1,DRV$ + "JUNK" 

4860 OPEN "I",#2,V$ 

4870 IF E0F(2) THEN 4950 

4880 INPUT #2,R,C,A$,X5,Y5,X9,Y9,STAT,SYS$,N0DE 
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4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 



FOR J=1 TO I STEP 1 
IF CODES(J)=NODE THEN STAT=S(J)^10 
IF CODES(J)=NODE THEN K0UNT(J)=1 
NEXT J 

PRINT #1,R;","C; " , "A$; " ,"X5; " , "Y5; ","X9; ","Y9; ","STAT; ","SYS$; " 

GOTO 4870 

CLOSE 

FOR J=1 TO I 

IF K0UNT(J)=1 THEN 5040 

CLS 

PRINT 

PRINT 

PRINT"Site Code CODES(J); " is not in the file." 

PRINT"Refer to facility listing for correct" 

INPUT"code. Enter RETURN to conti nue"; AN$ 

NEXT J 
CLS 

KILL V$ 

NAME DRV$ + "JUNK" AS V$ 

PRINT 

INPUT"DO YOU WANT ANOTHER SYSTEM? Y OR N";AN$ 

IF AN$="Y" THEN CLS 
IF AN$="Y" THEN 4220 
GOTO 4010 
R EM 
CLS 

ANSWER$="" 

PRINT" PREDICTIVE DAMAGE" 

PRINT 
PRINT 
PRINT" 

PRINT 
PRINT" 1. 

PRINT" 

PRINT 
PRINT" 2. 

PRINT" 

PRINT 

PRINT" 3. or QUIT" 

PRINT 

INPUr'ENTER YOUR CHOICE"; CH 
IF CH=1 THEN 5340 
IF CH=2 THEN 5750 
IF CH=3 THEN 4010 
GOTO 5140 

OPEN "0",#10,"TEMPSITE" 

CLS 



can be done two ways: " 

Nuclear or Other Device" 

- using circular destruction areas" 

Natural or Manmade Disaster" 

- using rectangular disaster areas" 



."NODE 



5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 



PRINT" NUCLEAR OR OTHER DEVICE" 

PRINT 

PRINT 

PRINT" Use this option to predict damage" 
PRINT"from a nuclear detonation or other" 
PRINT"massi ve destruction devices. Two levels" 
PRINT"of damage can be accomodated: total" 

PRINT"destruction and impairment. The" 
PRINT"procedure uses radius from the center" 
PRINT"point of detonation to calculate" 
PRINT"destruction or impairment." 

PRINT " ENTER the following data for" 
PRINT" each incident:" 

PRINT 

PRINT 

INPUT"SITE OF INCIDENT: "; SITES 
PRINT 

Latitude: ";LAT 
Longitude: "; LON 



INPUT" 

INPUT" 

PRINT 

INPUT"Radius 

INPUT" 



DATA ENTERED: " 



Site of incident: 
Latitude: "; LAT; " 
Radius of 
Radius of 



SITES 
Longi tude: 
total destruction: " 
impairment: ";R2 



LON 



R1 



of total destruction(miles)"; R1 
Radius of impairment(miles)"; R2 
CLS 
PRINT 
PRINT 
PRINT" 

PRINT 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT" DATA OK (Y/N)";ANSS 

IF ANSS="N" THEN 5510: IF ANSS<>"Y" THEN 5580 
PRINT #10, SITES; " ,"LAT; LON; Rl; R2 

CLS: PRINT: INPUT"DO YOU WANT TO ENTER ANOTHER SITE";ANS 
IF ANS="Y" THEN 5510: IF ANS<>"N" THEN 5710 
CLOSE #10 
GOTO 6160 

OPEN "0",#10,"TEMPSITE" 

CLS 

PRINT" 

PRINT 
PRINT 
PRINT" 

PRINT" 

PRINT" 



NATURAL OR OTHER DISASTER" 



Use this option to predict damage" 
from a natural disaster or other" 
manmade disasters. The procedure" 



5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 



PRINT" uses latitude and longitude from 
PRINT" two points to calculate impairment 
PRINT" in a rectangular area. The two 
PRINT" points used are the upper left 
PRINT" corner and the lower right corner. 

PRINT" Enter the following data for each 
PRINT" incident." 

PRINT 

INPUT"press RETURN when ready"; RET$ 

WIDTH 80:CLS 
PRINT 

INPUT"SITE OF INCIDENT: ";SITE$ 

PRINT 

Enter Latitude for upper left corner: ";LAT1 
Enter Longitude for upper left corner: "; LONl 



INPUT" 
INPUT" 
PRINT 
INPUT" 
INPUT" 
CLS 
PRINT 
PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT" 
PRINT" 
PRINT 
INPUT" 

IF ANS$= 



Enter Latitude for lower right corner: 
Enter Longitude for lower right corner: 



";LAT2 



L0N2 



DATA ENTERED:" 

Site of incident: 
Upper left corner - 
Lower right corner 



SITES 

lat. : "LATl;" Ion.: "LONl 
- lat.: "LAT2;" Ion.: "L0N2 



-II 



DATA OK (Y OR N)";ANS$ 
N" THEN 5920: IF ANS$<>"Y" THEN 6010 



PRINT #10, SITES; " ,"LAT1; LONl; LAT2; LON2 

CLS: PRINT: INPUT"DO YOU WANT TO ENTER ANOTHER SITE";ANS 

IF ANS="Y" THEN 5920: IF ANS<>"N" THEN 6130 

CLOSE #10 

CLS: WIDTH 80 

PRINT 

PRINT 

PRINT 

PRINT"THE FOLLOWING SYSTEM OPTIONS" 

PRINT"ARE AVAILABLE:" 

PRINT 

FTS 

AUTOVON 
AUTODIN 
MCI Microwave 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT 
INPUT" 

IF 0PT=8 



1 . 

2 . 

3. 

4. 



5. 

6 . 

7. 

8 . 



MCI 

FAA 

All 



Fiber Optics" 

HF Radio Network" 
Critical Facilities" 



QUIT" 



THEN 



ENTER OPTION 
KILL "TEMPSITE" 



DESIRED ";OPT 
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6300 IF 0PT=8 AND ANSWER$<>"" THEN KILL "SITETEMP" 

6310 IF OPT=8 THEN 4010 

6320 IF 0PT=2 THEN 6460 

6330 IF 0PT=1 THEN 6400 

6340 IF 0PT=3 THEN 6430 

6350 IF 0PT=4 THEN 6490 

6360 IF 0PT=5 THEN 6520 

6370 IF 0PT=6 THEN 6550 

6380 IF OPT=7 THEN 6580 

6390 GOTO 6160 

6400 V$=DRV$ + "FTSNODE" 

6410 TEM$="FTS" 

6420 GOTO 6600 

6430 V$=DRV$ + "DINNODE" 

6440 TEM$="AUTODIN" 

6450 GOTO 6600 

6460 V$=DRV$ + "VONNODE" 

6470 TEM$="AUTOVON" 

6480 GOTO 6600 

6490 V$=DRV$ + "MCINODE" 

6500 TEM$="MCI MW" 

6510 GOTO 6600 

6520 V$=DRV$ + "MFONODE" 

6530 TEM$="MCI FO" 

6540 GOTO 6600 

6550 V$=DRV$ + "FAANODE" 

6560 TEM$="FAA HF" 

6570 GOTO 6600 

6580 V$=DRV$ + "CRITFAX" 

6590 TEM$="CRITICAL" 

6600 PRINT 
6610 CLS 
6620 PRINT 
6630 RESET 

6635 IF DRV$>"B; " THEN 6680 
6640 DISK$=" S-17 " 

6650 IF 0PT=2 OR 0PT=3 THEN DISK$=" S-18 " 

6660 PRINT"ENTER DISC NO. DISKS; "IN THE " 

6670 INPUT"B-DRIVE AND ENTER RETURN"; D$ 

6680 RESET 
6690 CLS 
6700 PRINT 
6710 PRINT 

6720 INPUT"WHICH REGION (1-10), 0 FOR US LEVEL"; R 
6730 IF R>10 THEN 6720 
6740 IF CH=2 THEN 6930 
6750 OPEN "I",#7,"TEMPSITE" 
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6760 OPEN "0",#8,"SITETEMP'' 

6770 IF E0F(7) THEN 6910 

6780 INPUT #7,SITE$,LAT,L0N,R1,R2 

6790 OPEN "I",#1,"CRITSCAL" 

6800 IF EOF(l) THEN 6850 
6810 INPUT #1,SCA,REN 
6820 IF RENoR THEN 6800 
6830 RS1=CINT(SCA*R1) 

6840 RS2=CINT(SCA*R2) 

6850 CLOSE #1 

6860 GOSUB 2530 

6870 IF R>10 THEN R=R MOD 10 

6880 XD=2*XD: YD=240-YD: IF SET=20 THEN 6770 

6890 PRINT #8,SITE$;","LAT;L0N;R1;R2;RS1:RS2; XD;YD;SET 

6900 GOTO 6770 

6910 CLOSE 

6920 GOTO 7040 

6930 OPEN "I",#8,"TEMPSITE" 

6940 OPEN "0",#7,"SITETEMP" 

6950 IF E0F(8) THEN 7030 

6960 INPUT #8,SITE$,LAT1,L0N1,LAT2,L0N2 

6970 LAT=LAT1: L0N=L0N1; GOSUB 2530 

6980 XD1=2*XD; YD1=240-YD: IF SET=20 THEN XD1=0: IF SET=20 THEN YD1=0 
6990 LAT=LAT2: L0N=L0N2: GOSUB 2530 

7000 XD2=2*XD: YD2=240-YD; IF SET=20 THEN XD2=639:IF SET=20 THEN YD2=249 

7010 PRINT #7,SITE$;","XD1;YD1;XD2;YD2 

7020 GOTO 6950 

7030 CLOSE 

7040 WIDTH 40 

7050 PRINT 

7060 N$="RELAX" 

7070 GOSUB 1460 

7080 LOCATE 1 , 1: PRINT"STAND BY SYSTEM PROCESSING" 

7090 COUNT=0 

7100 IF CH=2 THEN 7380 

7110 OPEN "I",#1,V$ 

7120 OPEN "0",#2,DRV$ + "TEMP" 

7130 IF EOF(l) THEN 7360 

7140 INPUT #1, ROW, COL, A$,X5,Y5,X9,Y9,STAT,SYS$, NODE 

7150 IF R=0 THEN 7180 

7160 N=N0DE-INT(N0DE/100)*100 

7170 IF Ron THEN 7130 

7180 IF R0W=0 OR COL=0 THEN 7130 

7190 OPEN "I",#6,"SITETEMP" 

7200 IF E0F(6) THEN 7330 

7210 INPUT #6,SITE$,LAT,L0N,R1,R2,RS1,RS2,XD,YD,SET 
7220 IF STAT=30 OR STAT=31 THEN 7330 
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7230 IF R=0 THEN D=SQR(((XD-X5)/2) 2+(YD-Y5) 2) 

7240 IF R=0 THEN 7260 

7250 D=SQR(((XD-X9)/2) 2+(YD-Y9) 2) 

7260 QS=STAT-INT(STAT/10)*10 

7270 IF D<=RS2 THEN COUNT=l 

7280 IF D<=RS1 AND QS=0 THEN STAT=30 

7290 IF D<=RS1 AND QS=1 THEN STAT=31 

7300 IF D<=RS2 AND D>RS1 AND QS=0 THEN STAT=20 

7310 IF D<=RS2 AND D>RS1 AND QS=1 THEN STAT=21 

7320 GOTO 7200 

7330 CLOSE #6 

7340 PRINT #2, ROW; " ,"COL; " ,"A$; " ,"X5; ","Y5; " ,"X9; " ,"Y9; " 

7350 GOTO 7130 

7360 CLOSE 

7370 GOTO 7580 

7380 OPEN "I",#1,V$ 

7390 OPEN ''0"J2,DRn + "TEMP" 

7400 IF EOF(l) THEN 7570 

7410 INPUT #1,LAT, LON, A$,X5,Y5,X9,Y9,STAT,SYS$, NODE 

7420 IF R=0 THEN 7450 

7430 N=NODE-INT(NODE/100)*100 

7440 IF NOR THEN 7400 

7450 IF LAT=0 OR LON=0 THEN 7400 

7460 OPEN "I",#6,"TEMPSITE" 

7470 IF E0F(6) THEN 7540 

7480 INPUT #6,SITE$,LAT1,L0N1,LAT2,L0N2 

7490 IF LAT>LAT1 OR LAT<LAT2 THEN 7540 

7500 IF LON>LONl OR LON<LON2 THEN 7540 

7510 STAT=20 

7520 COUNT=l 

7530 GOTO 7470 

7540 CLOSE §6 

7550 PRINT n , LAT; " , "LON; " ,"A$; " ,"X5; " ,"Y5; " , "X9; " , "Y9; " 
7560 GOTO 7400 
7570 CLOSE 

7580 IF COUNT=0 THEN 8820 
7590 OPEN "I",#1,DRV$ + "TEMP" 

7600 OPEN "0",)¥2,DRV$ + "CRITNODE" 

7610 IF EOF(l) THEN 7770 

7620 INPUT ^fl, ROW, COL, A$,X5,Y5,X9,Y9,STAT,SYS$, NODE 
7630 IF R<>0 THEN 7660 

7640 PRINT #2, 11; " , "X5; " , "Y5; " , "0; " , "0; " , "0 
7650 GOTO 7610 

7660 IF STAT=30 OR STAT=31 THEN 7700 
7670 IF STAT=20 OR STAT=21 THEN 7740 
7680 PRINT #2,11;","X9;","Y9;","0;","0;","0 
7690 GOTO 7610 



"STAT;","SYS$;", 



"STAT; ","SYS$; ", 



"NODE 



"NODE 
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7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8090 

8100 

8080 

8110 

8120 

8130 

8140 

8150 

8160 



PRINT #2,6; ","X9-6; " ,"Y9-3; " ,"0; " ,"0; " 
PRINT #2,15; ","X9+6; " ,"Y9+3; " ,"0; " ,"0; " ,"0 
PRINT #2,14; ","X9; ","Y9; " ,"0; " ,"0; ","0 
GOTO 7610 

PRINT #2,0; " , "X9; " , "Y9; " , "0; " ,"0; ","0 



" 0 - 



6. 28 



PRINT #2,2;","X9;","Y9;","6;" 

GOTO 7610 
CLOSE 

IF R=0 THEN N$="USAOUT. TXT" 

IF R=1 THEN N$=DRV$ + "CRITRl" 

IF R=2 OR R=22 THEN N$=DRV$ + "CRITR2" 

IF R=3 THEN N$=DRV$ + "CRITR3" 

IF R=4 THEN N$=DRV$ + "CRITR4" 

IF R=5 THEN N$=DRV$ + "CRITR5" 

IF R=6 THEN N$=DRV$ + "CRITR6" 

IF R=7 THEN N$=DRV$ + "CRITR7" 

IF R=8 THEN N$=DRV$ + "CRITR8" 

IF R=9 OR R=99 THEN N$=DRV$ + "CRITR9" 

IF R=10 OR R=101 THEN N$=DRV$ + "CRITRIO" 
SITE$=" " 

IF CH=2 THEN 7990 
OPEN "I",#4,"SITETEMP" 

IF E0F(4) THEN 7970 

IF SITE$<>" " THEN SITE$=SITE$+" AND " 

INPUT #4 , NSITE$ , LAT , LON , R1 , R2 , RSI , RS2 , XD, YD , SET 
SITE$=SITE$+NSITE$ 

GOTO 7920 
CLOSE #4 
GOTO 8060 

OPEN "I",#4,"TEMPSITE" 

IF E0F(4) THEN 8050 

IF SITE$<>" " THEN SITE$=SITE$=" AND " 

INPUT #4 , NSITE$ , LATl , LONl , LAT2 , L0N2 
SITE$=SITE$+NSITE$ 

GOTO 8000 
CLOSE #4 
CLS 

WIDTH 80: SCREEN 
PRINT " 

PRINT " 

GOSUB 1460: LOCATE 1,1 
N$=DRV$ + "CRITNODE" 



DAMAGE TO ";TEM$;" COMMUNICATIONS DUE TO INCIDENT(S) AT" 
";SITE$ 



GOSUB 1460 
IF CH=2 THEN 8230 
IF SET = 20 THEN 6600 
OPEN "I",#5,"SITETEMP" 
IF EOF(5) THEN 8210 
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8170 INPUT #5,NSITE$,LAT,L0N,R1,R2,RS1,RS2,XD,YD,SET 

8180 CIRCLE (XD, YD), (RS1*2), ,0,6. 28,1/2 

8190 CIRCLE (XD, YD), (RS2*2), ,0,6. 28,1/2 

8200 GOTO 8160 

8210 CLOSE #5 

8220 GOTO 8290 

8230 OPEN "I",#5,"SITETEMP" 

8240 IF E0F(5) THEN 8280 

8250 INPUT #5,NSITE$,X1,Y1,X2,Y2 

8260 LINE (X1,Y1)-(X2,Y2), ,B 

8270 GOTO 8240 

8280 CLOSE #5 

8290 LOCATE 23,1 

8300 INPUT"DO YOU WANT TO SEE A LISTING OF IMPAIRED AND/OR DAMAGED FACILITIES? 
Y OR N";ANS$ 

8310 IF ANS$="N" THEN 8730 

8320 SCREEN 0; WIDTH 80; COLOR 14,0,0 

8330 INPUT"ENTER S FOR A SCREEN LISTING, P FOR A PAPER LISTING"; LT$ 

8340 IF LT$="P" THEN 8570 
8350 CLS 

8360 PRINT" DAMAGE TO ";TEM$; " COMMUNICATIONS DUE TO INCIDENT(S) AT" 

8370 PRINT" "; SITES 

8380 PRINT 

8390 PRINT" LATITUDE LONGITUDE FACILITY TYPE 

STATUS CODE" 

8400 PRINT 
8410 K=0 

8420 OPEN "I",)¥1,DRV$ + "TEMP" 

8430 IF EOF(l) THEN 8530 

8440 INPUT #1,R0W,C0L,A$,X5,Y5,X9,Y9,STAT,SYS$,N0DE 
8450 IF INT(STAT/10)=1 THEN 8430 

8460 IF INT(STAT/10)=2 THEN PRINT TAB(4); ROW; TAB( 17); COL; 

SYSS; TAB(57); "IMPAIRED"; TAB(70); NODE 
8470 IF INT(STAT/10)=3 THEN PRINT TAB(4); ROW; TAB( 17); COL; 

SYSS; TAB(57); "DESTROYED"; TAB(70); NODE 
8480 K=K+1 

8490 IF K=15 THEN PRINT 

8500 IF K=15 THEN INPUT"ENTER RETURN TO CONTINUE ";CS 
8510 IF K=15 THEN K=0 
8520 GOTO 8430 
8530 PRINT 

8540 INPUT"ENTER RETURN TO CONTINUE"; CS 
8550 CLOSE 

8560 IF LTS="S" THEN 8730 
8570 CLS 

8580 INPUT"POSITION PAPER AND ENTER RETURN"; CS 
8590 LPRINT" DAMAGE TO ";TEMS;" COMMUNICATIONS DUE TO INCIDENT(S) AT" 



TAB(28);AS;TAB(46); 

TAB(28);AS;TAB(46); 
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8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8980 



LPRINT" SITES 

LPRINT 

LPRINT" LATITUDE LONGITUDE FACILITY TYPE 

STATUS CODE" 

LPRINT 

OPEN "I",A'1,DRV$ + "TEMP" 

IF EOF(l) THEN 8720 

INPUT #1, ROW, COL, A$,X5,Y5,X9,Y9,STAT,SYS$, NODE 
IF INT(STAT/10)=1 THEN 8650 
IF INT(STAT/10)=2 THEN STA$=" IMPAIRED" 

IF INT(STAT/10)=3 THEN STA$="DESTROYED" 

LPRINT TAB(4); ROW; TAB( 17); COL; TAB(28); A$; TAB(46); SYS$; TAB(57); STAS; 
TAB(70);N0DE 
GOTO 8650 
CLOSE 

SCREEN 0;CLS: COLOR 14,0,0 

INPUT"REVIEW <M>AP, RETURN TO M<E>NU, ANOTHER <R>EGION, OR ANOTHER 
<S>YSTEM"; ANSWERS 
IF ANSWERS="M" THEN 7780 
IF ANSWERS="E" THEN KILL "TEMPSITE" 

IF ANSWERS="E" THEN KILL "SITETEMP" 

IF ANSWERS="E" THEN 4010 

IF ANSWERS="R" THEN 6690 

IF ANSWERS="S" THEN 6160 

GOTO 8740 

CLS: WIDTH 40 

PRINT 

PRINT 

IF R<>0 THEN 8920 

PRINT"THERE ARE NO FACILITIES DAMAGED BY THE" 

PRINT"INCIDENT(S) AT " 

PRINT" "; SITES 

PRINT 

INPUr'ENTER RETURN TD CONTINUE"; SS 
GOTO 4010 

PRINT" THERE ARE NO FACILITIES IN REGION ";R 
PRINT" DAMAGED BY THE INCIDENT(S) AT" 

PRINT SITES 
PRINT 

INPUT"ENTER RETURN TO CONTINUE"; SS 

GOTO 6160 

END 



Appendix F 
NCSACT.BAS Listing 



01 COMMON DRV$ 

20 DIM C0DtS(100),S(100),K0UNT(100) 

30 DEFDBL N,M,C; LASTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu " 

260 GOSUB 650 
270 TES=0 
280 GOSUB 580 

300 PRINT 

310 PRINT" 1. P.O. C. Lists 

320 PRINT" 2. Emergency Activation Procedures " 

330 PRINT" 3. Network Status Monitoring " 

340 PRINT" 4. Damage Assessment " 

350 PRINT" 5. Resolution of Claim " 

360 PRINT" 6. Zooming 

370 PRINT" 7. Word Processing (WordStar) " 

380 PRINT" 8. NSC Processing Module " 

390 PRINT" 9. QUIT 

400 COLOR 14,0,0; PRINT 

410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 



480 


IF 


T=1 


THEN 


CHAIN 


"NCSPOC" 


490 


IF 


T=2 


THEN 


CHAIN 


"NCSACT" 


500 


IF 


T=3 


THEN 


CHAIN 


"NCSSTAT" 


510 


IF 


T=4 


THEN 


CHAIN 


"NCSDAM" 


520 


IF 


T=5 


THEN 


CHAIN 


"NCSCLAIM 


530 


IF 


T=6 


THEN 


RUN "NCSZOOM" 


540 


IF 


T=7 


THEN 


3400 




550 


IF 


T=8 


THEN 


CHAIN 


"NCSNSC" 


560 


IF 


T=9 


THEN 


SYSTEM 



570 GOTO 250 
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580 LOCATE 10,4: PRINT" DATE ".-LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATES 
620 LOCATE 11,28 
630 PRINT TIMES 
640 RETURN 

660 REM* * 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* * 

690 R EM *’*'^^******’''**^*^^*****^^***********’*f*^***^*’*'*^*^’*f*^*^**^*^*^* 
700 SCREEN 0: WIDTH 40: CLS 
710 PRINT 
720 COLOR 14,1,0 
730 PRINT CHRS(201); 

740 FOR 1=1 TO 36 
750 PRINT CHRS(205); 

760 NEXT I 

770 PRINT CHRS(187) 

780 PRINT CHRS(186); 

790 FOR 1=1 TO 36 
800 PRINT" "; 

810 NEXT I 

820 PRINT CHRS(186) 

830 PRINT CHRS(186); 

840 PRINT" NCS EMERGENCY TELECOMM. 

850 PRINT CHRS(186) 

860 PRINT CHRS(186); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHRS(186) 

890 PRINT CHRS(186); 

900 PRINT PADS;: PRINT CHRS(186) 

910 PRINT CHRS(186); 

920 FOR 1=1 TO 36 
930 PRINT" "; 

940 NEXT I 
950 PRINT CHRS(186) 

960 PRINT CHRS(200); 

970 FOR 1=1 TO 36 
980 PRINT CHRS(205); 

990 NEXT I 

1000 PRINT CHRS(188) 

1010 PADS=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 



II . 
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1060 INPUT"PRESS RETURN FOR MENU. ";RET$ 

1070 CIS 
1080 RETURN 

1090 REM********pi ******* *****)«(* 

1100 SCREEN 0; CIS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",f5^1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT )^^1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF C$="Q" THEN 1280 

1250 PRINT 

1260 1=0 

1270 GOTO 1140 

1280 CLOSE 

1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE ";R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE INPUT 
1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; M$ 

1440 CLOSE fSfl 
1450 RETURN 

1460 * ’'f ******** p j Lp p I^Qj* ************** * 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0,0)-(640,250) 
1480 OPEN "I",)5^1,N$ 

1490 IF EOF(l) THEN 2510 

1500 INPUT f5fl,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 
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1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE -(X,Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z,,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

**CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

**EARTH STATION 
**CITY (BOX) 

**REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
**CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
**CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
**WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



Y1=Y 

GOTO 1490 

LINE (X1,Y1)-(X,Y), ,B 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 
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2000 LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4.Y-1); LINE -(X+4,Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10): LINE -(X+20 , Y); LINE -(X,Y) 

2030 CIRCLE (X+20 , Y-15) , 14, ,2. 36 , 5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1),,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -(X+6,Y-6): LINE -(X,Y) 

2100 CIRCLE (X+6,Y-6),6,,0,3. 14 



2110 


GOTO 


1490 




2120 


PAINT (X,Y),1 




2130 


GOTO 


1490 




2140 


LINE 


(X1,Y1)-(X,Y),,B 


2150 


GOTO 


1490 




2160 


LINE 


(X-2,Y)-(X+2,Y) 


2170 


LINE 


(X-4,Y+1)- 


-(X+4,Y+1) 


2180 


PSET 


(X.Y-1) 




2190 


GOTO 


1490 




2200 


PSET 


(X.Y-2) 




2210 


LINE 


(X-2,Y-D- 


-(X+2.Y-1) 


2220 


LINE 


(X-4,Y)-(X+4,Y) 


2230 


LINE 


(X-6,Y+D- 


-(X+6,Y+1) 


2240 


LINE 


(X-8,Y+2)- 


-(X+8.Y+2) 


2250 


GOTO 


1490 




2260 


PSET 


(X,Y) 




2270 


PSET 


(X-2,Y) 




2280 


PSET 


(X+2.Y) 




2290 


PSET 


(X.Y-1) 




2300 


PSET 


(X.Y+l) 




2310 


GOTO 


1490 




2320 


LINE 


(X-4.Y-2)' 


-(X+4.Y+2) 


2330 


GOTO 


1490 




2340 


PSET 


(X.Y-2) 




2350 


PSET 


(X,Y-1) 




2360 


PSET 


(X.Y) 




2370 


LINE 


(X-2,Y+1) 


-(X+2.Y+1) 


2380 


PSET 


(X-4,Y+2) 




2390 


PSET 


(X+4.Y+2) 




2400 


GOTO 


1490 




2410 


LINE 


(X+4,Y-2) 


-(X-4,Y+2) 


2420 


LINE 


(X-4,Y-2) 


-(X+4.Y+2) 


2430 


LINE 


(X-4,Y)-( 


X+4,Y) 


2440 


LINE 


(X,Y+2)-( 


X.Y-2) 


2450 


GOTO 


1490 




2460 


LINE 


(X+4.Y-2) 


-(X-4.Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X.Y), , ,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 REM** ***********LAT/ LONG**** ****** ********* 
2540 REM CLS 
2550 REGION=R 
2560 SET=0 

2570 OPEN '• I", )¥1, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF LAT>LATU OR LAT<LATD THEN 2650 

2630 IF L0N>L0NL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGION>10 THEN 3380 

2660 REGION=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT #2, LA, YVAL.REG 

2720 IF REGIONOREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YL0W=YVAL 

2780 YHI=YVAL1 

2790 LATL0W=LA 

2800 LATHI=LA1 

2810 CLOSE #2 

2820 OPEN "I",#1,"L0NFILE" 

2830 L0N1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONoREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 



2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YLOW)+YLOW) 

3060 GOTO 3390 
3070 RAD(l)=YLOW 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C))/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CIS: WIDTH 80 
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3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 

4000 REM ***********’*f*’'f**’'f*************************************^**** 
4010 PAD$=" Emergency Activation Procedure " 

4020 GOSUB 650 
4030 TES=0 
4040 GOSUB 580 
4050 PRINT 

4060 PRINT"1. Conditions for Activation of the NCS" 

4070 PRINT"2. OSTP Telecommunications Orders " 

4080 PRINT"3. NCS Telecommunications Instructions " 

4090 PRINT"4. NCS Emergency Recall List 

4100 PRINT"5. Activation/Deployment Procedures " 

4110 PRINT" for Emergency Management Teams " 

4120 PRINT"6. QUIT " 

4130 PRINT 

4140 COLOR 14,0,0: PRINT" ENTER OPTION DESIRED "; 

4150 INPUT M: COLOR 15 
4160 CLS 

4170 IF M=6 THEN 250 

4175 IF DRV$>"B: " THEN 4200 

4180 PRINT"ENTER DISC NO. 18 IN THE " 

4190 INPUT"B-DRIVE AND ENTER RETURN"; B$ 

4200 WIDTH 80 

4210 IF M=1 THEN 4280 

4220 IF M=2 THEN GOSUB 1040 

4230 IF M=3 THEN GOSUB 1040 

4240 IF M=4 THEN GOSUB 1040 

4250 IF M=5 THEN GOSUB 1040 

4260 IF M=6 THEN 250 

4270 GOTO 4010 

4280 NUM=0 

4290 CLS 

4300 X$=DRV$ + "CONDACTN" 

4310 SET=0 
4320 GOSUB 1090 
4330 GOTO 4000 
4340 END 



Appendix G 
NCSNSC.BAS Listing 



01 COMMON DRV$ 

20 DIM CODES(100),S(100),KOUNT(100) 

30 DEFDBL N,M,C: LASTFILE$=" " 

35 GOTO 4000 

250 PAD$=" Main Menu " 

260 GOSUB 650 
270 TES=0 
280 GOSUB 580 

300 PRINT 

310 PRINT" 1. P. 0. C. Lists " 

320 PRINT" 2. Emergency Activation Procedures " 

330 PRINT" 3. Network, Status Monitoring " 

340 PRINT" 4. Damage Assessment " 

350 PRINT" 5. Resolution of Claim " 

360 PRINT" 6. Zooming " 

370 PRINT" 7. Word Processing (WordStar) " 

380 PRINT" 8. NSC Processing Module " 

390 PRINT" 9. QUIT " 

400 COLOR 14,0,0: PRINT 
410 PRINT" ENTER OPTION DESIRED"; 

420 INPUT T 

430 IF T=6 OR T=7 THEN 460 
440 IF T=LASTT THEN 4000 
450 LASTT=T 
460 PRINT 
470 WIDTH 80 



480 


IF 


T=1 


THEN 


CHAIN 


"NCSPOC" 


490 


IF 


T=2 


THEN 


CHAIN 


"NCSACT" 


500 


IF 


T=3 


THEN 


CHAIN 


"NCSSTAT" 


510 


IF 


T=4 


THEN 


CHAIN 


"NCSDAM" 


520 


IF 


T=5 


THEN 


CHAIN 


"NCSCLAIM 


530 


IF 


T=6 


THEN 


RUN "NCSZOOM" 


540 


IF 


T=7 


THEN 


3400 




550 


IF 


T=8 


THEN 


CHAIN 


"NCSNSC" 


560 


IF 


T=9 


THEN 


SYSTEM 



570 GOTO 250 
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580 LOCATE 10,4: PRINT" DATE ".-LOCATE 10,29: PRINT" TIME " 

600 LOCATE 11,2 
610 PRINT DATE$ 

620 LOCATE 11,28 
630 PRINT TIME$ 

640 RETURN 

660 REM* * 

670 REM* This Subroutine produces the logo box for the menus. * 
680 REM* * 

690 REM************************************************************* 
700 SCREEN 0: WIDTH 40: CLS 
710 PRINT 
720 COLOR 14,1,0 
730 PRINT CHR$(201); 

740 FOR 1=1 TO 36 
750 PRINT CHR$(205); 

760 NEXT I 

770 PRINT CHR$(187) 

780 PRINT CHR$(186); 

790 FOR 1=1 TO 36 
800 PRINT" 

810 NEXT I 

820 PRINT CHR$(186) 

830 PRINT CHR$(186); 

840 PRINT" NCS EMERGENCY TELECOMM. 

850 PRINT CHR$(186) 

860 PRINT CHR$(186); 

870 PRINT" MICRO SUBSYSTEM 

880 PRINT CHR$(186) 

890 PRINT CHR$(186); 

900 PRINT PADS;: PRINT CHR$(186) 

910 PRINT CHR$(186); 

920 FOR 1=1 TO 36 
930 PRINT" 

940 NEXT I 
950 PRINT CHR$(186) 

960 PRINT CHR$(200); 

970 FOR 1=1 TO 36 
980 PRINT CHR$(205); 

990 NEXT I 

1000 PRINT CHR$(188) 

1010 PAD$=" " 

1020 COLOR 14,1,0 
1030 RETURN 
1040 CLS: WIDTH 80 

1050 PRINT"THIS OPTION IS NOT YET AVAILABLE." 
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1060 INPUT"PRESS RETURN FOR MENU.";RET$ 

1070 CLS 
1080 RETURN 

1090 [_£ f^g^Q**************** ********* * 

1100 SCREEN 0: CLS: WIDTH 80 
1110 IF SET=0 THEN 1320 
1120 1=0 

1130 OPEN "I",#1,X$ 

1140 IF EOF(l) THEN 1280 
1150 INPUT #1,K$,A$ 

1160 IF K$=PASS$ THEN 1180 
1170 GOTO 1140 
1180 1=1+1 

1190 IF I>=20 THEN 1220 
1200 PRINT A$ 

1210 GOTO 1140 
1220 PRINT 

1230 INPUT"ENTER C TO CONTINUE OR Q TO QUIT";C$ 

1240 IF C$="Q" THEN 1280 

1250 PRINT 

1260 1=0 

1270 GOTO 1140 

1280 CLOSE 

1290 PRINT 

1300 INPUT"ENTER RETURN TO CONTINUE ";R$ 

1310 GOTO 1450 
1320 OPEN "I",#1,X$ 

1330 FOR 1=1 TO 20 
1340 LINE INPUT #1,A$ 

1350 IF EOF(l) THEN 1420 
1360 PRINT A$ 

1370 NEXT I 
1380 PRINT 

1390 INPUT"ENTER C TO CONTINUE, Q TO QUIT";B$ 

1400 IF B$o"C" AND B$<>"Q" THEN 1390 
1410 IF B$="C" THEN 1330 
1420 PRINT 

1430 INPUT" PRESS RETURN WHEN READY"; M$ 

1440 CLOSE n 
1450 RETURN 

1460 *********** pj [_p p pQ"|"* ************** * 

1470 WIDTH 80: SCREEN 2: WINDOW SCREEN (0,0)-(640,250) 
1480 OPEN "I",#1,N$ 

1490 IF EOF(l) THEN 2510 

1500 INPUT #1,C,X,Y,Z,S,E 

1510 IF C=0 THEN 1760 REM **POINT 

1520 IF C=1 THEN 1780 REM **LINE 
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1530 


IF 


C=2 


THEN 


1800 


REM 


1540 


IF 


C=3 


THEN 


1820 


REM 


1550 


IF 


C=4 


THEN 


1840 


REM 


1560 


IF 


C=5 


THEN 


1860 


REM 


1570 


IF 


C=6 


THEN 


1880 


REM 


1580 


IF 


C=7 


THEN 


1910 


REM 


1590 


IF 


C=8 


THEN 


1930 


REM 


1600 


IF 


C=9 


THEN 


1990 


REM 


1610 


IF 


C=10 


THEN 


2020 


REM 


1620 


IF 


C=ll 


THEN 


2050 


REM 


1630 


IF 


C=12 


THEN 


2070 


REM 


1640 


IF 


C=13 


THEN 


2090 


REM 


1650 


IF 


C=14 


THEN 


2120 


REM 


1660 


IF 


C=15 


THEN 


2140 


REM 


1670 


IF 


C=16 


THEN 


2160 


REM 


1680 


IF 


C=17 


THEN 


2200 


REM 


1690 


IF 


C=18 


THEN 


2260 


REM 


1700 


IF 


C=19 


THEN 


2320 


REM 


1710 


IF 


C=20 


THEN 


2340 


REM 


1720 


IF 


C=21 


THEN 


2410 


REM 


1730 


IF 


C=22 


THEN 


2460 


REM 


1740 


IF 


C=23 


THEN 


2490 


REM 



1750 GOTO 1490 
1760 PSET (X,Y) 

1770 GOTO 1490 
1780 LINE -(X,Y) 

1790 GOTO 1490 
1800 CIRCLE(X,Y),Z, ,S,E, 13/32 
1810 GOTO 1490 
1820 CLS 
1830 GOTO 1490 
1840 CLS 
1850 GOTO 1490 
1860 CLS 
1870 GOTO 1490 
1880 X1=X 
1890 Y1=Y 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



**CIRCLE 

**CLEAR SCREEN 

**CLEAR POINT 

**CLEAR CENTER OF CIRCLE 

**BOX(UPPER LEFT CORNER) 

**BOX (LOWER RIGHT CORNER) 

**SATELLITE 

**STAR 

**EARTH STATION 
**CITY (BOX) 

**REMOVE CENTER OF CIRCLE 
**TELEPHONE SET 
**SET UP BLOCK FILLER 
**CREATES A FILLED BLOCK 
**CREATES A TRIANGLE 
**CREATES A BIG TRIANGLE 
**CREATES A DIAMOND 
**CREATES A LARGE BOX 
**WISHBONE 
**ASTERISK 
**AN X 

**A DASHED LINE 



GOTO 1490 

LINE (X1,Y1)-(X,Y),,8 
GOTO 1490 

CIRCLE (X,Y),10, ,0,6. 28,1/2 
LINE (X-20,Y)-(X-10,Y) 

LINE (X,Y-5)-(X,Y-10) 

LINE (X+10,Y)-(X+20,Y) 

LINE (X,Y+5)-(X,Y+10) 

GOTO 1490 

LINE (X,Y-2)-(X-4,Y+2): LINE -(X+4,Y-1) 



1 05 



2000 LINE (X,Y-2)-(X+4,Y+2): LINE -(X-4 , Y-1); LINE -(X+4,Y-1) 
2010 GOTO 1490 

2020 LINE (X,Y)-(X+10,Y-10): LINE -( X+20 , Y): LINE -(X,Y) 

2030 CIRCLE (X+20 , Y-15) , 14 , ,2. 36 , 5. 5 
2040 GOTO 1490 

2050 LINE (X-2,Y-1)-(X+2,Y+1),,B 

2060 GOTO 1490 

2070 CLS 

2080 GOTO 1490 

2090 LINE (X,Y)-(X+12,Y): LINE -(X+6,Y-6); LINE -(X,Y) 

2100 CIRCLE (X+6,Y-6),6,,0,3. 14 



2110 


GOTO 


1490 




2120 


PAINT (X,Y),1 




2130 


GOTO 


1490 




2140 


LINE 


(X1,Y1)-(X,Y),,B 


2150 


GOTO 


1490 




2160 


LINE 


(X-2,Y)-(X+2,Y) 


2170 


LINE 


(X-4,Y+1)- 


-(X+4.Y+1) 


2180 


PSET 


(X,Y-1) 




2190 


GOTO 


1490 




2200 


PSET 


(X,Y-2) 




2210 


LINE 


(X-2,Y-D- 


-(X+2,Y-1) 


2220 


LINE 


(X-4,Y)-(] 


<+4,Y) 


2230 


LINE 


(X-6,Y+D- 


-(X+6,Y+1) 


2240 


LINE 


(X-8,Y+2)- 


-(X+8.Y+2) 


2250 


GOTO 


1490 




2260 


PSET 


(X,Y) 




2270 


PSET 


(X-2,Y) 




2280 


PSET 


(X+2.Y) 




2290 


PSET 


(X,Y-1) 




2300 


PSET 


(X.Y+l) 




2310 


GOTO 


1490 




2320 


LINE 


(X-4,Y-2) 


-(X+4,Y+2),,B 


2330 


GOTO 


1490 




2340 


PSET 


(X.Y-2) 




2350 


PSET 


(X,Y-1) 




2360 


PSET 


(X.Y) 




2370 


LINE 


(X-2,Y+1) 


-(X+2,Y+1) 


2380 


PSET 


(X-4,Y+2) 




2390 


PSET 


(X+4.Y+2) 




2400 


GOTO 


1490 




2410 


LINE 


(X+4,Y-2) 


-(X-4,Y+2) 


2420 


LINE 


(X-4,Y-2) 


-(X+4,Y+2) 


2430 


LINE 


(X-4,Y)-( 


X+4,Y) 


2440 


LINE 


(X,Y+2)-(X,Y-2) 


2450 


GOTO 


1490 




2460 


LINE 


(X+4.Y-2) 


-(X-4,Y+2) 
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2470 LINE (X-4,Y-2)-(X+4,Y+2) 

2480 GOTO 1490 

2490 LINE-(X,Y),,,50. 386 

2500 GOTO 1490 

2510 CLOSE 

2520 RETURN 

2530 R£M*************[_AT /long******************* 
2540 REM CLS 
2550 REGI0N=R 
2560 SET=0 

2570 OPEN " I", )ifl, "BOUNDARY" 

2580 IF EOF(l) THEN GOTO 2610 
2590 INPUT #1,LATD,LATU,L0NR,L0NL,REG 
2600 IF REGIONoREG THEN 2580 
2610 CLOSE #1 

2620 IF LAT>LATU OR LAT<LATD THEN 2650 

2630 IF L0N>L0NL OR LON<LONR THEN 2650 

2640 GOTO 2680 

2650 IF REGI0N>10 THEN 3380 

2660 REGION=R+(R*10) 

2670 GOTO 2570 

2680 OPEN "I",#2,"LATFILE" 

2690 LA1=0 

2700 IF EOF(2) THEN 2810 

2710 INPUT #2, LA, YVAL.REG 

2720 IF REGIONoREG THEN 2700 

2730 IF LAT<=LA1 AND LAT>=LA THEN 2770 

2740 LA1=LA 

2750 YVAL1=YVAL 

2760 GOTO 2700 

2770 YL0W=YVAL 

2780 YHI=YVAL1 

2790 LATL0W=LA 

2800 LATHI=LA1 

2810 CLOSE UZ 

2820 OPEN "I",#1,"L0NFILE" 

2830 LON1=0 

2840 IF EOF(l) THEN 2920 

2850 INPUT #1,L0,C1,C2,REG 

2860 IF REGIONoREG THEN 2840 

2870 IF L0N<=L0N1 AND L0N>=L0 THEN 2920 

2880 L0N1=L0 

2890 C11=C1 

2900 C21=C2 

2910 GOTO 2840 

2920 CLOSE #1 

2930 IF R=0 THEN 3070 



2940 XLEFTU=YHI/C11+C21 
2950 XLEFTD=YL0W/C11+C21 
2960 XRITEU=YHI/C1+C2 
2970 XRITED=YL0W/C1+C2 
2980 L1=XRITEU-XLEFTU 
2990 L2=XRITED-XLEFTD 
3000 G=(L0N1-L0N)/(L0N1-L0) 

3010 XL=G*L2+XLEFTD 
3020 XU=G*L1+XLEFTU 
3030 D=(LAT-LATL0W)/(LATHI-LATL0W) 

3040 XD=CINT(XL-D*(XL-XU)) 

3050 YD=CINT(D*(YHI-YL0W)+YL0W) 

3060 GOTO 3390 
3070 RAD(1)=YL0W 
3080 RAD(2)=YHI 
3090 C1(1)=C11 
3100 C2(1)=C21 
3110 C1(2)=C1 
3120 C2(2)=C2 
3130 FOR 1=1 TO 2 
3140 K=0 

3150 IF 1=1 THEN S=1 
3160 IF 1=2 THEN S=3 
3170 FOR J=S TO S+1 
3180 K=K+1 

3190 A=1/(C1(K) 2)+l 

3200 B=2*(174-C2(K))/C1(K)+2*514 

3210 C=(174-C2(K)) 2-RAD(I) 2+514 2 

3220 Y1=(B+SQR(B 2-4*A*C))/(2*A) 

3230 Y2=(B-SQR(B 2-4*A*C))/(2*A) 

3240 IF Yl>235 THEN Y(J)=Y2 
3250 IF Yl<=235 THEN Y(J)=Y1 
3260 X(J)=Y(J)/C1(K)+C2(K) 

3270 NEXT J 
3280 NEXT I 

3290 DVAL=(L0N1-L0N)/(L0N1-L0) 

3300 XL=DVAL*(X(2)-X(1))+X(1) 

3310 YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320 XU=DVAL*(X(4)-X(3))+X(3) 

3330 YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340 SVAL=(LAT-LATLOW)/(UTHI-LATLOW) 

3350 XD=CINT(XL-SVAL*(XL-XU)) 

3360 YD=CINT(YL+SVAL*(YU-YL)) 

3370 GOTO 3390 
3380 SET=20 
3390 RETURN 
3400 CIS: WIDTH 80 
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3410 SHELL "WS 
3420 CLS 
3430 GOTO 250 
4000 

4010 PAD$=“ NSC Processing Module " 

4020 GOSUB 650 
4030 TES=0 
4040 GOSUB 580 
4050 PRINT 
4060 PRINT 

4070 PRINT" " 

4080 PRINT" Disks for this module provided " 

4090 PRINT" by NSC Staff. Insert disk in " 

4100 PRINT" B-Drive and enter RETURN, or " 

4110 PRINT" enter a Q to Quit. " 

4120 PRINT 

4130 COLOR 15: INPUT" ENTER OPTION DESIRED ";T$: COLOR 15 
4140 IF T$o"Q" THEN 4000: CLS 
4150 GOTO 250 
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